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PART I : PROGRAMMER'S GUIDE 



Introduction 

The principal achievement of an assembly program is that it almost completely 
relieves the programmer of the problem of assigning actual storage locations 
to instructions or quantities manipulated by the program. If, in the course of 
programming, he wishes to refer to any location in storage which will contain 
some quantity used by the program, he gives this location a "name", preferably 
one of high mnemonic value, and refers to it by means of this name . Thus, 
salary might be stored in "WAGES", sin x in "SIN X". The assembly program 
assigns actual locations to these "names" and produces an absolute machine 
language program . 

SOAP II is a symbolic assembly program for the IBM 650 Data Processing System. 
It is designed to assemble programs written for any array of equipment including 
tapes, printer, immediate access storage, indexing registers, floatingpoint, 
disk storage and inquiry stations . The assembly program itself uses none of 
these features . It will operate on a basic 650 having an alphabetic device . Special 
features described in the sequel should render it equally useful for both 
scientific and commercial applications . 

Definition of Terms 

L = location 

D = data (address) 

I = instruction (address) 

Tag s character used to specify an indexing register 

FWA - first word address 

LWA = last word address 

OP 9 operation (code) 

Block = a consecutive group of drum (or core) locations 

Region = a block designated by an alphabetic character 

Pseudo-instruction = an instruction which is never executed 

Symbolizer part = left-most position of L, OP, D or I field 

Absolute part = L, OP, D or I field with symbolizer part deleted 

Available = subject to selection as an optimum drum location whenever the 

assembly program is given freedom of choice 
Unavailable = not subject to the above selection 
Reserve = to make unavailable 
I. A. S. = Immediate Access (core) Storage 



Aching in columns 1-40 and 73-80 is ignored except for column 2 which 
must not contain a Y(12) punch. 

Instructions and data enter the assembly one word per card. The output is in 
the form of one word per card load cards . 

Specifying Program Area on Drum 

Prior to assembly, the entire drum is available to the program. It is invariably 
necessary, however, rodent the program from occupying certam drum 
locations e g., input- output blocks, tables, data areas, etc. There are three 
pseudo opera" ons which can be used to restrict the assembled program to any 
predesigtiated parts of the drum: 

B lock Reservation: BLR , 

This card contains two a bsolute drum addresses FWA, LWA (FWA * LWA) 
punched in the absolute part of the D and I fields, respectively. All locations 
from FWA to LWA (inclusive) are made unavailable. 

For example, 
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will make drum locations (1500-1900) unavailable. 

Rloc k Availability: BLA „,«.•<, <wm 

This card is exactly like a BLR card except that it makes all locations from 
FWA to LWA available . Note that it is generally redundant to put a BLA 
card at the be^S^f an assembly since the entire drum is already available. 

By way of illustration, 
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will make drum locations 1600-1730 available. 

Regional Specification : REG 

This card contains an alphabetic character, punched in the symbolizer part of 
the D field, to be associated with a block defined by the terminal drum addresses 
FWA, LWA. As in the case of a BLR card, all locations from FWA to LWA 
are made unavailable . If the programmer wishes to refer to locations within 
a region using "regional" addresses (see below), an REG card must precede 
the first use of such addresses . 

The REG card 
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defines the block 0027-0036 as region P and causes this block to be made 
unavailable . 
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Regional 

A regional address has the form 



A|NNNN| 

where "A" is any alphabetic character and NNNN is a four digit number. The 
regional address of the first word of region B, for example, is B0001 . The 
twelfth word of region R is R0012. 



Note: 



The regional address "A"0000 is permitted. It will result in the absolute 

address (FWA-1). 

Regional addresses whose absolute equivalents are larger than LWA are 

permitted. For example, if region R is the block 1951-1960, the regional 

address R0015 will assemble as 1965. 

The use of a regional address without a defining REG card will result in 

the assembled address being left blank. 



Symbolic 

Symbolic addresses have the form 



C ■ 
C 5 I 



C 4 C 3 °2 C ! 



where the C's may be any characters acceptable to the alphabetic or special 



character devices subject to the following restrictions: 

1. Cg must not be blank. 

2. An address meant to be symbolic must not have a regional form, i.e., 
an alphabetic character followed by four numerical characters . 

Typical symbolic addresses are 
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Symbolic addresses are assigned optimum drum equivalents when initially 
encountered and maintain this equivalence throughout the assembly unless 
redefined. It is possible to preassign a value to a symbol (see EQU, SYN, 
pages 13, 14.) 

Absolute 

Absolute addresses have the form 
| jNNNN 

where NNNN is a valid four digit machine address. The symbolizer part of 
an absolute address must be blank. 
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Drum locations corresponding to absolute addresses are no^ made unavailable 
during assembly. Thus, drum locations containing instructions or data 
specified by absolute addresses must be block reserved at the beginning of 
assembly. 



Blank 

Whenever the D or I address of an instruction refers to the location of the M next T 
instruction (or data) written on the coding form, this address and the location 
of the "next" instruction may be left blank provided this order is not altered 
when assembling. Blank addresses will be filled in optimally by the assembly 
program . 

The D and I address of an instruction may both be blank if they both refer to 
the location of the next instruction written. An address should not be left blank 
in an instruction card unless the above meaning is specifically intended. 

Operation Codes 

650 operation codes may be written in either three character symbolic or two 
digit numerical form, e. g., 



R|AL 
|65 



Symbolic operation codes to be used with SOAP II are given in the Appendix. 

Any card containing an illegal symbolic op code will be considered an instruction 
and processed accordingly. The assembled op will be left blank. 



Numerical Data 



Numerical data are written using the absolute part of the OP, D and I fields, e.g. 
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The symbolizer parts of these fields must be blank. Leading or trailing zeros 
must be punched in the card . 
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Alphabetic Data: ALF 

The pseudo-op card ALF permits the programmer to enter alphabetic information 
into the 650 on load cards, up to five characters per card. Any characters 
acceptable to the alphabetic or special character devices are permissible, and 
are written in the D field. During assembly, alphabetic data are converted to 
their numerical equivalents and the latter are punched as a ten digit number 
in exactly the same manner as numerical data. For example, 
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will cause the number [69, 62, 74, 75, 8s] to be loaded into symbolic location 
EDPM. 



Similarly, 
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will load [00,97,90,95,00] into (core) location 9010. 

Note: The I address of an ALF card is not used by SOAP II. However, if it is 
blank, it will be filled in by the symbol "SOAP 2". This is merely an 
artifice employed to avoid erroneous error detection when listing output 
(See Appendix-407 Control Panel). 

Signs 

Any punch in column 42 signifies a negative instruction or negative data. For 
coding purposes, a (-) written in the sign column and punched as X (11) will 
suffice. A blank in column 42 is interpreted as positive. 

Comments Card: Type 1 

Every card processed by SOAP II may contain remarks not exceeding 10 
characters in length. When longer remarks are desired, a comments card, 
which may contain up to 30 characters, may be used. Comments cards have 
no effect on the assembly. They are merely reproduced in the output deck. 
The following figure shows the format for comments cards . Note that the 
type (1) is punched in column 41 . 



COL. 


41 


42 


43! 44- -47 


48l49, 50 

* 


5IJ52- -55J56 


57|58- -61162 


63- 




-72 




T 
V 

P 
E 


s 
1 

G 
N 


LOCATION 


OPERATION 
CODS 


DATA [ T 
ADDRESS ; g 


instruction!! 

ADDRESS jg 


REMARKS 




1 




■«-c 


jo 


iM 


M 


i E | 


N 


T 3 - 


^ 
* 







Example .1 



Prepare a table of 



F(x) = Ax* + Bx + C 



for 



10 



x = 1, 2, ...., 100 
assuming A, B, C integers and | F(x) | < 10"". 
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Output: 
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Coding is given in Figure 2 . The assembled program is shown in Figure 3 . 
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Figure 2 : Example 1 
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Figure 4 : Example 2 
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Example II 

Given a rate code and number of hours worked, search a rate table and calculate 
gross pay. 



Input; 



IDE NT 
I- -5 



WORD 1 



HATE 
CODE 

X 
6 

WORD 2 WORD 3 



HOURS 

xx-x 

7- -<? 



Word 1: 00000, xxxxx = Identification 
Word 2: 00, OOOx, 0000 = Rate Code 
Word 3: 00 00000 xx.x = Hours 

The rate code is a one digit number 0-9. The corresponding hourly rate (x.xx) 
is in the low three positions of locations 0000-0009. 



WORD 
+ 



WORD 2 



Output: 



IDENT 



l- 



-5 



KATE 

CODE 

X 

6 



WORD 3 



HOURS 
XX«X 

7- -5 



WORD 4 



GROSS 
XXX-XX 
10- -14- 



Coding is shown in Figure 4. The assembled program is given in Figure 5. 

Indexing 

When the D or I address of an instruction is to be modified by an indexing 
register, the corresponding TAG column is used to indicate the appropriate 
indexing register. Permissible tags are A, B, C or 1, 2, 3. The assembly 
program will automatically add the proper multiple of 2, 000 or 200 to a tagged 
address . 



For example, the following program will perform the vector addition 

x. + y. = z., i = 1, 2, . . . , 100. The x. are stored in region X, y i in region Y 

and z. in region Z. 



COL 



41 



42 



43! 44- 

-I 



-47 



LOCATION 



AiPD 



46i49, 50 



OPERATION 
CODE 

r[sa" 

RiAL 
AiLO 
5ITL 
AjXA 
NiZA 



SIJS2- 



-55;56 



DATA 
ADDRESS 

joioo 
xjoto) 
Yioioi 
Zloioi 

; 000 I 
AlDD 



;t 

'A 



57158- 



-61 1 62 



-i_ 



INSTRUCTION 
ADDRESS 



!T 
A 
G 



AiW 



63- 



-72 



REMARKS 
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The following types of D or I addresses will not be indexed even if a tag is 
present: 

1 . Undefined symbolic 

2. Blank 

3. Not in the range 0000-1999 or 9000-9059. 

Predefining Symbols 

The following two pseudo operations may be used to preassign a value to a 
symbolic address: 

Equivalence : EQU 

The symbol written in the D address is assigned the equivalent of the expression 
written in the I address. The I address may be absolute, regional or symbolic. 
If the I address is regional or symbolic, it must have been previously defined. 

The EQU card 



COL 



41 



42 



43! 44* 



-47 



LOCATION 



48i49 f 50 



OPERATION 
CODS 



ElQU 



51 52- -55j56 



iT 
ADDRESS j e 



DATA 



TiAPEl 



57! 58- 



-6H62 

1_ 



INSTRUCTION ! T 



ADDRESS 



80IO 



63- 



-72 



REMARKS 



will cause the symbol TAPE 1 to be assigned the value 8010 whenever it sub- 
sequently appears during assembly. 

The EQU card 



COL. 



41 



42 



43! 44» 

J 



-47 



LOCATION 



46i49, 50 51 52- 



OPERATION 
COOK 



E;QU 



rr 



-55*56 



DATA 
ADDRESS 



!<3 



CODE 



57i58- 



-6H62 



INSTRUCTION i 
ADDRESS ! ; 



KlOOOZ 



63- 



REMARKS 



will cause the symbol CODE to be assigned the value R0002, i. e., the second 
word of region R. Region R must have been previously defined by an REG card. 

Similarly, the EQU card 



-72 



COL 



41 



42 



43i 44- 

J 



-47 



LOCATION 



48i49, 50 



OPERATION 
COOK 



ElQU 



5l|52- -55j56 



DATA | T 
ADDRESS j § 



ALPHA 



57| 58- 



-61 1 62 

1 



INSTRUCTION ! T 



ADDRESS 



1 6 



BiETA 



63- 



REMARKS 



-72 



will assign to ALPHA the value previously assigned to BETA. 
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Synonym: SYN 

An SYN card is exactly like an EQU card except that the equivalent of the 
expression written in the I address must be a drum address, i.e. , 0000^ 
"I" £ 1999. This drum location is made unavailable to the program. The I 
address may be absolute, regional or symbolic. 

The SYN card 



COL 



41 



42 



43144- 
J 



-47 



LOCATION 



48i49, 50 



OPERATION 
C0D8 



S:YN 



SIJ52- -55;56 



DATA 
ADDRESS 



IT 
! A 



EiNTRY 



57158- 



-6H62 
i 



INSTRUCTION 
ADDRESS 



i G 



\Z05 



63- 



-72 



REMARKS 



will assign the value 1205 to the symbol ENTRY and reserve location 1205. 

If the I address of an EQU or SYN card is undefined, the card will be ignored. 
EQU or SYN takes precedence over any previous definition. 

Assembly Capacity and Speed 

During assembly, all symbolic addresses and their equivalents are stored in a 
symbol table which can accommodate 400 symbols . Programs containing more 
than 400 symbolic addresses should be assembled in separate blocks . Non- 
overlap can be guaranteed by use of an availability punchout described in the 
next section. 

Assembly progresses at the rate of 50 to 90 cards per minute. This will decrease 
somewhat if the symbol table becomes densely packed or if few drum locations 
are available for the remaining program . 

Punching Availability Table: PAT 

The availability table is a 200 word table used by SOAP II to "remember" those 
drum locations already used and those still remaining. The pseudo-op PAT can 
be used at any time during assembly to cause punching of this table in a highly 
readable form. The output will be fifty Type Y (12) cards, one for each 
dynamic drum level (00-49). These cards may be listed with the 407 control 
panel described in the Appendix. This listing will reveal at a glance all drum 
locations used by the program (0) and those remaining (1) for additions or 
corrections . * 

The availability table may be loaded as input to an assembly thus restoring the 
*See page 91. 
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availability status which existed at some point of a prior assembly. 
Order of Assembly Deck 

The assembly input deck should have the following order: 

1 . SOAP II 

2. Deck to be assembled 

Due to the one pass nature of the assembly, priority for the choice of optimal 
locations diminishes as the assembly progresses . Thus, frequently executed 
portions of the program should be placed toward the beginning of the assembly 
deck. 

Multifile Assembly: BOP 

Any number of independent programs may be assembled in one pass . Merely 
place a pseudo-op card BDP (Beginning of Program) between each program, i.e., 



&6P 



\ Trog,. 3 

| ?ROGr. Z 



) 



soapjt 



Note that it is redundant to place a BOP card before the first of one or more 
programs to be assembled. 

Machine Operator's Guide 

1 . 533 Read-Punch Unit 

a. Insert SOAP II control panel 

b. Ready read feed with assembly deck 

c . Ready punch feed with blanks 

2. 650 Console 

a. Set programmed switch to STOP 

b. Set half cycle switch to RUN 
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c . Set control switch to RUN 

d. Set display switch to DISTRIBUTOR 

e . Set overflow switch to SENSE 

f . Set error switch to STOP 

3A. If SOAP II is being loaded, set (70, 1951, 9999) in storage entry switches . 

3B. If SOAP II is already on the drum, do one of the following: 

1. Set (00, 0000, 1000) in storage entry switches. 

2. Precede input with a BOP card and set (00, 0000, 1950) in storage 
entry switches . 

4. Press computer -reset key 

5. Press program-start key 

6. When read hopper empties, press end of file key 

7 . The availability table may be obtained manually by sending control to location 
1900 . 

Programmed Stops 

0111-Symbol table full; pressing program-start key will continue assembly. 
Symbolic address which cannot be assigned an equivalent will be left 
blank in the output. 

0222-Drum packed, i.e., no locations available for remaining program . 

Pressing program-start key will continue assembly. Addresses which 
cannot be assigned will be left blank in the output. 

There are no other programmed stops . 

Program Decks 

Copies of the condensed SOAP II program deck corresponding to the listing 
shown on pages 92-94 of this manual are available from 

650 Program Librarian 

International Business Machines Corporation 

590 Madison Avenue 

New York 22, New York 
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APPENDIX 



Heading: HEP 



Heading is used to avoid duplicity of symbols when several programs or several 
sections of a single program are to be assembled together . The need for heading 
is paramount if several persons have contributed to a program or when a program 
employs symbolic library routines. 



Heading is accomplished in SOAP II by the automatic insertion of a heading 
character into the right-most position of symbols having this position blank. The 
heading character is punched in the symbolizer part of the D address of a HED 
card. Thus the symbol 



t!w Dbb 



(b 3 blank) 



subsequent to the heading card 



S7J58- 



COL 



41 



42 



43144- 



-47 



48149, 50 



5l!52~ -55;56 



-6M62 



63- 



-72 



LOCATION 



OPERATION 
CODS 



;t 

ADDRESS j g 



DATA 



INSTRUCTION i 
ADDRESS ! 



REMARKS 



H:ED 



Zi 



is processed by the assembly program as if it were actually the symbol 



TjW O b Z 



In order to make effective use of heading, it is necessary to agree before hand 
to restrict all symbols to four characters or less.* Prior to assembly, each 
of the various sections of the program is preceded by an appropriate HED card. 

If within a section of the program headed by "A" it is desired to refer to the 
symbol (TAX bb) appearing in a section headed by F, simply use the symbol 
(TAX bF). The small b, for blank column, is necessary to prevent the card 
punch operator from closing up the symbol and thus taking the "F" out of the 
heading column. 



*If a symbol is to be referred to by several headed parts of the program, then 
it is best that this symbol not be headed anywhere . This can be accomplished 
by making it a five -character symbol. 
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The effect of a heading card is terminated only by another heading card. If it is 
desired to terminate a heading card without introducing a new heading, use a 
HED card with a blank D address . Any character acceptable to the alphabetic 
or special character devices may be used for heading. 

800X Instructions 

When the D or I address of an instruction located in 800X (X * 0, 1, 2, 3, 5, 6, 
7) is to be optimized by the assembly program, an instruction located in 800X 
should be written on the coding form. 800X instructions will be automatically 
bypassed when loading the assembled output. 

Use of Library Programs 

Within the framework of SOAP II, library programs are in either symbolic or 
relocatable form. Both of these forms are discussed in the following two 
sections . 

Symbolic Library Programs 

Symbolic library programs are written in exactly the same form as the main 
program. Except for the entry and exit symbols, all symbols are four characters 
or less. They may thus be conveniently headed. It is important to note that 
such programs do not incorporate a "guaranteed" optimization. 

Relocatable Library Programs: REL 

Whenever tigjit optimization is required, one should use relocatable library 
programs . These are coded in absolute and may be translated an amount 
specified by the programmer . This is accomplished by use of the pseudo 
operation REL (relocate). The number punched in the absolute D address 
specifies the amount of drum translation, A . Similarly, the absolute I address 

specifies the amount of core translation, A . A blank field is interpreted as 
zero. Thus c 



COL 



41 



42 



43! 44* 

J 



-47 



LOCATION 



48i49 f 50 



OPERATION 
COOK 



R;el 



51JS2- 



-55*56 



DATA 
ADORESS 



;t 

! A 



1200 



57J58- 



-:6!i62 



INSTRUCTION i I 
ADDRESS j g 



\OOIO 



63- 



-72 



REMARKS 



would cause drum addresses in the relocatable program following it to be 
incremented by 1200 and core addresses by 10. The REL card 
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COL. 



41 



42 



43144- 



-47 



LOCATION 



46i49 f 50 



OPERATION 
CODS 



R;EL 



51 52* 



-55J56 



DATA 
ADDRESS 



iT 
G 



;Q600 



57 1 58- 



-6H62 



INSTRUCTION i 
ADDRESS ! 



63- 



-72 



REMARKS 



will increment subsequent drum addresses by 600 and core addresses by 0. 
Only positive translations are permitted. 

Relocatable library programs must be assembled prior to the main program. The 
programmer need not block reserve the drum area used by a relocatable program . 
This is automatically performed by the assembly program. 

The effect of an REL card is terminated only by another REL card. 

If a translated drum location is greater than 1999, it is left blank in the output. 
The same applies to a translated core location greater than 9059. 

Writing Library Programs 

The following two sections are of primary interest to programmers responsible 
for writing SOAP II library routines . 

Symbolic Library Programs 

Entry and exit symbols should be five characters to avoid heading difficulties . 

All other symbols should be four characters or less to permit heading by the 

user. 

Relocatable Library Programs 

Relocatable programs are written in absolute and should use the lowest possible 
drum or core locations in the unrelocated state. The following rules apply 
specifically to these routines: 

1 . A relocatable card is indicated by a 2 punch in the type column (41). 

2 . Op codes may be symbolic or numerical 

3 . L may be drum or core . 

4. D and I may be absolute or symbolic. * 



*Symbolic D or I addresses may occasionally be required to refer to other 
routines . 
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5. Absolute addresses may be one of five varieties: 



nnnn| 

; 0000 £ NNNN ^1999 
; 9000^ NNNN ^9059 



a. Non-relocatable (Fixed): |F 

b. Drum relocatable:! i NNNN I 

c. Core relocatable: I iNNNN I 



where NNNN is a four-digit number. In situations where D or I is relocatable 
but not in the range (b) or (c), the usage 



d. Drum relocatable: |D i NNNN] 

e. Core relocatable: |C j NNNNj 

will eliminate possible ambiguity. 



6. Absolute D or I addresses in the range 0000-1999 or 9000-9059 after 
possible relocation may be tagged' for indexing by the assembly program. 

7. If L, after possible relocation, is a drum address, it will be made 
unavailable. D or I drum addresses are not reserved. 

Two pseudo operations, RBR and REQ are designed for use with relocatable 
programs . 

Relocatable Block Reservation : RBR 

The pseudo operation RBR is identical to BLR except that the drum addresses 

FWA, LWA are incremented by A _ prior to reservation. For example, if 

A = 1000, u 

D 



COL. 



41 



42 



43! 44- 



-47 



48;49, S0SIJS2* -55-56 



LOCATION 



OPERATION 
COOS 



IRlBR 



Tt 

ADDRESS j g 



DATA 



10015 



57i58- 



-61 1 62 

-1 



instruction! I 

ADDRESS |g 



\0O5O\ 



63- 



-72 



REMARKS 



will cause drum locations (1025-1050) to be reserved. 

The use of RBR is mainly for drum routines which use erasable blocks within 
the routine. Reservation of these blocks is easily accomplished with RBR cards 
thus avoiding the necessity of a large number of cards simply to reserve 
erasable areas . 

Relocatable Equivalence : REQ 

The pseudo operation REQ enables symbolic linkage of the main program with 
relocatable programs. REQ is similar to EQU except that the absolute I address 
is incremented by A or A prior to being assigned as the equivalent of the 

c D 
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symbol in the D address . The I address must be absolute, type (b) or (c) 





(see 


5 above). Thus if A n = 0020, 








[col. 


41 


42 


43! 44- -47 


48.49,50 51 J52- -55'56 


57J58- -61)62 

1 | 


63- 


-72 




T 
V 


s 

i 

G 
N 


LOCATION 


OPERATION 
CODS 


DATA i I 
ADDRESS j § 


INSTRUCTION !T 
ADDRESS | g 


REMARKS 








1 
1 

1 


RiEQ 


KiAMACl 


i 90/OI 





will assign 9030 as the equivalent of the symbol "RAMAC", 

Similarly, if A = 1300, 
D 



-55<56 



57! 58- 



COL 



41 



42 



43144- 

J 



-47 



48149, 50 



5IJ52- 



-6H62 



63- 



-72 



LOCATION 



OPERATION 
CODE 



DATA 
ADDRESS 



;t 

6 



INSTRUCTION 1 I 
ADDRESS ! a 



REMARKS 



R:EQ 



TYPE 3 



0075 



will assign 1375 as the equivalent of the symbol "TYPE 3 . " 

To illustrate a typical drum-drum* relocatable subroutine, the program given 
in Figure 6, using indexing registers, will evaluate the polynomial 

W = ^*V/" + •••• a o 

where n > and x, a, are floating point numbers . The a. f s are stored such that 

L(ai) « L(a Q ) + i 
The calling sequence is 



|C0L. 


41 


42 


43i44- -47 


48;49, 50 


5IJ52- -55J56 


57J58- -6II62 


63- 


-72 




T 
Y 

E- 


s 
1 

6 
N 


LOCATION 


OPERATION 
CODS 


DATA 
ADDRESS 


T 
A 
6 


INSTRUCTION 
ADDRESS 


I 


REMARKS 










RjAL 


CiW 


















UDD 


Xi 


















RlAC 


NEXT 




PlOLYX 







where 



cw= [00, {L(a Q ) + 2000} , n 
00, {L(a Q ) + 200 } , n 



if the a. are on the drum 

1 

if the a. are in core 



The routine will exit to (drum location) NEXT with the result in the upper 
accumulator . 

*Loaded onto and executed from the drum. 
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JCOL. 


41 


42 


43; 44- _47 


48J49, 50 51 J52- -5S;56 


57[58- -6Ii62 


63- -72 




T 
V 


s 
1 

c 

N 


LOCATION 


OPERATION 

coo« 


T 

OATA T 
ADDRESS q 


INSTRUCTION ! I 
ADDRESS q 


REMARKS 




z 
z 






000 9 


SiTP 


\OOI3 






OOI6 




54 VE X 






OOI6 


l:dd 


IOO/9 






oou 




I SET AI>PR. OF <2o 




z 
z 






OOI 1 


SiDA 


oon 






OOOI 










,000 \ 


KlAA 


F 8002 






OOIO 




Kl-> T.A. A 




z 






oo\o 


FjMP 


\0O\3 






00/9 




( )-x 




t 






OOI 9 


f!ad 


F!9<m 






oooz 




( )'X + CLi-*( ) 




z 






oooz 


N!ZA 


\0005 




£ 


oooo 


c 


IS Y\- O 




z 






0OO5 


5JXA 


FjOOO/ 






00/0 




Ki-i-*n 




z 






OOI3 


lOI 


FjOOOO 




F 


oooo 




ER/»5E/)8^e (x) 








RiEQ 


P'OLYX 




[00O<? 




DERNE ENTRY 



Figure 6: Relocatable Drum-Drum Subroutine 

The relocatable drum-core* subroutine given in Figure 7 will evaluate K 
where K > and K! < 10 10 . The calling sequence is 



COL. 


41 


4a 


43J44- .47 


48J49, 50 


5IJ52- -55;56 


57|58- -6M62 


63- -72 




T 
V 


s 
1 

G 
N 


LOCATION 


OPERATION 
CODE 


DATA 
ADDRESS 


It 

•A 
6 


INSTRUCTION 
ADDRESS 


T 


REMARKS 










R;AL 


Ki 




i 
i 

i 














UD3) 


EixiT 




C1ALKF 







The result will be in the lower accumulator on exiting from the subroutine . 
Note that whereas seven core locations are required for execution, only 
six drum locations are needed to store the subroutine. Savings of this 
kind may usually be effected by placing erasable locations at the end of drum- 
core routines . 



*Loaded onto the drum and executed in core ( 
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COL. 



41 



42 



43i44- 

j 



-47 



LOCATION 



OPERATION 
COOK 



oooo 



OOOI 



0002 



oooz 



0004 



48i49, 50 51 J52- -55;56 



S:TD 



R!AA 



S!XA 



NlZA 



RiAU 



DATA 
ADDRESS 



IT 

! A 
6 



1006 



F! 80 OZ 



F\OOOI 



9004 



EiQOOZ 



57i58- 



-6H62 



INSTRUCTION i 
ADDRESS 



9001 



1002 



9003 



9006 



1005 



63- 



-72 



REMARKS 



STORE EXIT 



K-+I.A. A 



(K-0 IN I. A. A 



IS (K-0=O 



( )~*UA 



0005 



lMlPY 



R 8005 



1002 



C )(K-p; 



RIEQ 



C1ALKF 



9000 



&BFINE e/VT^Y 



Figure 7: Relocatable Drum -Core Subroutine 
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Numerical 


Symbolic* 


00 


NOP 


01 


HLT 


02 


UFA 


03 


RTC 


04 


RTN 


05 


RTA 


06 


WTN 


07 


WTA 


08 


LIB 


09 


LDI 


10 


AUP 


11 


SUP 


12 


- 


13 


- 


14 


DIV 


15 


ALO 


16 


SLO 


17 


AML 


18 


SML 


19 


MPY 



SYMBOLIC 650 OPERATION CODES 

Operation 



No Operation 

Halt 

Unnormalized Floating Add 

Read Tape Check 

Read Tape Numeric 

Read Tape Alphanumeric 

Write Tape Numeric 

Write Tape Alphanumeric 

Load I. A. S. Block 

Load LA.S. 

Add Upper 

Subtract Upper 

(Not Used) 

(Not Used) 

Divide 

Add Lower 

Subtract Lower 

Add Magnitude to Lower 

Subtract Magnitude from Lower 

Multiply 



*A11 O's in symbolic OP codes are alphabetic O's, not numerical zeros, 
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Numerical 


Symboli< 


20 


STL 


21 


STU 


22 


SDA 


23 


SIA 


24 


STD 


25 


NTS 


26 


BIN 


27 


SET 


28 


SIB 


29 


STI 


30 


SRT 


31 


SRD 


32 


FAD 


33 


FSB 


34 


FDV 


35 


SLT 


36 


SCT 


37 


FAM 


38 


FSM 


39 


FMP 



Operation 

Store Lower 

Store Upper 

Store Data Address 

Store Instruction Address 

Store Distributor 

Branch No Tape Signal 

Branch on Inquiry 

Set I. A. S. Ring 

Store I.A.S. Block 

Store I.A.S. 

Shift Right 

Shift and Round 

Floating Add 

Floating Subtract 

Floating Divide 

Shift Left 

Shift Left and Count 

Floating Add Magnitude 

Floating Subtract Magnitude 

Floating Multiply 
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Numerical 


Symbolic 


40 


NZA 


41 


BMA 


42 


NZB 


43 


BMB 


44 


NZU 


45 


NZE 


46 


BMI 


47 


BOV 


48 


NZC 


49 


BMC 


50 


AXA 


51 


SXA 


52 


AXB 


53 


SXB 


54 


NEF 


55 


RWD 


56 


WTM 


57 


BST 


58 


AXC 


59 


SXC 



Operation 

Branch Non- Zero I. R. A 
Branch Minus I.R. A 
Branch Non -Zero I.R. B 
Branch Minus I.R. B 
Branch Non-Zero Upper 
Branch Non- Zero 
Branch Minus 
Branch on Overflow 

Branch Non-Zero I.R. C 

Branch Minus I.R. C 

Add I.R. A 

Subtract I.R. A 

Add I.R. B 

Subtract I.R. B 

Branch No End of File 

Rewind 

Write Tape Mark 

Backspace Tape 

Add I.R. C 

Subtract I.R. C 
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Numerical 



Symbolic 



Operation 



60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70* 

71* 

72 

73 

74 

75 

76 

77 

78 

79 



RAU 
RSU 



DVR 

RAL 

RSL 

RAM 

RSM 

LDD 

RD1 

WR1 

RC1 

RD2 

WR2 

RC2 

RD3 

WR3 

RC3 

RPY 



Reset Add Upper 

Reset Subtract Upper 

(Not Used) 

(Not Used) 

Divide Reset Upper 

Reset Add Lower 

Reset Subtract Lower 

Reset Add Magnitude into Lower 

Reset Subtract Magnitude into Lower 

Load Distributor 

Read Input Storage 1 

Write Output Storage 1 

Read Conditional Input Storage 1 

Read Input Storage 2 

Write Output Storage 2 

Read Conditional Input Storage 2 

Read Input Storage 3 

Write Output Storage 3 

Read Conditional Input Storage 3 

Reply 



*SOAP II will also accept the symbolic op codes 

70 RCD Read Card 

71 PCH Punch 
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Numerical 


Symbol. 


80 


RAA 


81 


RSA 


82 


RAB 


83 


RSB 


84 


TLU 


85 


SDS 


86 


RDS 


87 


WDS 


88 


RAC 


89 


RSC 


90 


BDO 


91 


BD1 


92 


BD2 


93 


BD3 


94 


BD4 


95 


BD5 


96 


BD6 


97 


BD7 


98 


BD8 


99 


BD9 



Operation 

Reset Add I. R. A 

Reset Subtract I.R. A 

Reset Add I.R. B 

Reset Subtract I.R. B 

Table Lookup 

Seek Disk Storage 

Read Disk Storage 

Write Disk Storage 

Reset Add I.R. C 

Reset Subtract I.R. C 

Branch on 8 in Distributor 10 

Branch on 8 in Distributor 1 



Branch on 8 in Distributor 9 
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IcOL. 


41 


42 


43! 44- -47 


48J49, 50 


51 ]52- -5SJ56 


57i58- -6li62 


63- -72 




T 
V 

P 
E 


8 
1 

6 
N 


LOCATION 


OPERATION 
CODE 


DATA 1 
ADDRESS 


T 
A 
6 


INSTRUCTION ! 
ADDRESS 


T 
A 
6 


REMARKS 










3\LK 


! FWA 




! LWA 














BlLA 


j FWA 




i LWA 














■RlE.<Si 


*! FWA 




\ LWA 




X- = ALPHABETIC CHAR. 










E!QU 


SlYMBL 




j ANY 














SjYN 


SJYMBL 




1 ANY 














a'lf 


XJXXXX 


















B!OP 


1 


















H'jED 


*> 








# «= HEADING, CHAR. 










PiAT 


1 

1 


















R|EL 


! Ad 




! A c 














RjBX 


! FWA 




1 LWA 














R!EQ 


S'.YMBL 




\ NNNN 





Summary of Pseudo Operations 
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O 

o 
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J£ 



op 
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x 
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X^ 
X 
X 
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X 



CM 



* o x 
S * x 



*!> 



o o 
o 

2 U 



N 






o 

XI 
o 



X! 
o 
o 

00 



uj c 
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407 Control Panel 

The 407 control panel shown in Figure 9 will detect the following situations in 
the assembled output: 

Note # 



1 - Instruction * with blank L following an instruction with D and I both not 

blank. 

2 - Instruction with L not blank following an instruction with either D or I 

blank. 

3 - Instruction with blank L not preceded by an instruction. 

4 - Non- instruction following an instruction with D or I blank. 

Notes (1) and (2) always imply a coding error while (3) and (4) are warning 
signals to point out potential coding errors . 

If the assembled L, OP, D or I fields of an instruction have been left blank, 
columns 75-78, respectively, will be x (11) punched. Correspondingly, the 
phrase 

BLANK L, OP, D or I 
will print to the right of the absolute instruction. 

If an EQU or SYN card has been ignored due to an undefined I address or a 
packed symbol table, column 79 will contain a 9 punch causing the word 
"BYPAS" to print to the right of the Remarks field. 



*Instruction -* instruction or data. 



31 




-os 5f*5JO 



32 




33 



PART II : PROGRAM ANALYSIS 

Introduction 

The following is a description of the internal operation of SOAP II. An attempt 
has been made to present this description in a logical order beginning with 
allocation of memory followed by an explanation of the tables governing the 
assembly and outline of the various subroutines . 

The symbolic assembly of SOAP II included at the end of this report was arrived 
at in the following manner: 

1 . SOAP II was coded symbolically for assembly by SOAP I. 

2. Deck (1) was assembled by SOAP I, giving SOAP II in SOAP I form. 

3. Deck (1) was translated into SOAP II symbolic form using the SOAP I 
to SOAP II Translator (N.Y.S.C.C. #334). 

4. The symbolic SOAP II form of SOAP II (3) was assembled by Deck (2) 
giving SOAP II in SOAP II form. 

The program is listed in logical order as opposed to the order in which it was 
assembled. 

Memory Allocation 

Figure 1 is a "snapshot" of the drum showing the location of the various tables 
used by the assembly program and the input-output and program blocks . 

Table Descriptions 

Symbol Table: 0000-0399 

Every symbol processed by the assembly program is stored in the symbol 

table . An attempt is first made to store a symbol in location L computed as 

follows: 

Let S = XXXXXXXXXX be the ten digit numerical representation of a five 
alphanumeric al character symbol . Calculate 

(1001001001) X (S) = YYYYYYYYYY(ZZZ)YYYYYYY 

Then L is taken to be the integral part of .4(ZZZ). Thus 000 £ L < 399. 
It may be seen that all of the digits in S contribute to the formation of Lq. 
Thus different symbols will tend to give rise to different L 's, but the problem 

of duplicity, i.e., different symbols having the same Lp, must be accounted 
for. If a symbol cannot be stored in L (because another symbol has "gotten 
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there first**), an attempt is made to store it in (L + 1). If this too fails, we 
try L + 2, L Q + 3, , L Q + K where K is (hopefully) small . 

Equivalence Table: 0400-0599 

Whenever a symbol is stored in the symbol table, its four digit equivalent is 

stored in the equivalence table in the following manner: 

Let L be the location in the symbol table containing the symbol . Let 

2 2 

Then the equivalent is stored in the data address or instruction address part of 
(0400 + Q) according as R = or 1 . 

Availability Table: 0600-0799 

The availability table "remembers" drum locations used by the program being 
assembled and those still remaining. Each of the 200 words contains indicator 
digits (0 — unavailable, 1 — available) for ten dynamically equivalent drum 

locations. If these digits are numbered from left to right, P = 0, 1, 2, , 9, 

then the digit corresponding to a drum location L may be found as follows: 

Let L = Xl X 2 X 3 X 4 . L« 2L = Yl Y 2 Y 3 Y 4 . 

Then 

A = 0600 + Y + 2(Y-Y ) 

X O A 

P = Y 2 
where A is the availability table location whose P th digit corresponds to L . 

Example: L = 1238 

2L = 2476 
A = 0600 + 2 + 2(76) = 0754 
P =4 

Conversely, given A and P, one may compute L as follows: 
Let A-0600 = + _r_ 

4 ~ 4 

Then L = 500R + 50P + Q 
Example: A = 0754, P ~ 4 

0754 - 0600 154 9 

= - i2JL = 38 +^- 

4 4 4 
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L = 500 x 2 + 50 x 4 + 38 = 1238 

Optimizing Table: 0800-0899 

Information required to optimize 650 instructions is stored in the optimizing 
table. Location (0800 + XX) contains the entry for numerical op code XX where 
00 < XX < 99 . Thus the entry for RAL (65) is in 0865. 

As there is no one rule by which all 650 instructions may be optimized, operations 
having the same or similar optimizing rules have been grouped as shown in 
Figure 2. The general optimizing rules for these groups are: 



999: 


I = D+8 


where 8 = f(D) 


998: 


I = L + 8 


where 8 * f(D) 


898: 


I = L + 8 


where 8 = f(D), non-shift 


988: 


I = L + 8 


shift other than SRD 


888: 


I = L + 8 


SRD 



Optimizing table entries have the following format: 

f E ' 5 | E : 5 | ^1 (6 = ODD 

[XJX|XX|XX|0ABCJ ^ E = EV EN 

D I 

where ABC is the group code given in Figure 2 . Thus the entry for RAL is 
(3305040999). 
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GROUP 




CODE 


OPERATIONS 


999 


UFA, AUP, SUP, DIV, ALO, SLO, AML, SML, 




MPY, STL, STU, SDA, SIA, STD, FAD, FSB, 




FDV, FAM, FSM, FMP, RAU, RSU, DVR, RAL, 




RSL, RAM, RSM, LDD, LIB, LDI, SIB, STI, 




TLU, RD1, WR1, RC1, RD2, WR2, RC2, RD3, 




WR3, RC3, RCD, PCH, RPY 


998 


NOP, HLT, RTC, RTN, RTA, WTN, WTA, 




NTS, BIN, SET, NZA, BMA, NZB, BMB, NZC, 




BMC, NZU, NZE, BMI, BOV, NEF, RWD, 




WTM, BST, BDO, BD1, , BD9, SDS, 




RDS, WDS 


898 


AXA, SXA, AXB, SXB, AXC, SXC, RAA, RSA, 




RAB, RSB, RAC, RSC 


988 


SRT, SLT, SCT 


888 


SRD 



Figure 2: 650 Operation Groups 

Pseudo Operation Entries: 1001-1012 

The twelve pseudo operations have been (arbitrarily) numbered as follows: 

# Pseudo Operation 



1 


BOP 


2 


BLR 


3 


BLA 


4 


REG 


5 


EQU 


6 


SYN 


7 


ALF 


8 


PAT 


9 


HED 


10 


REL 


11 


REQ 


12 


RBR 
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The first instruction of a pseudo operation is in location (1000 + #). Thus the 
REL routine begins in 1010. 

Region Table: 1021-1049 

Origins of the twenty-six possible regions are stored in the region table. The 
instruction address part of location (0960 + XX) contains the first word 
address (FWA) of the region having XX as the numerical representation of its 
alphabetic designation. Thus the origin of region F is in 1026 ( = 0960 + 66). 

The region table is initialized to (8000000000). Processing of an REG card with 
FWA * YYYY converts the appropriate entry to (900000YYYY) . 

Symbolic Op Table: 1050-1164 except 1098-1099 and 1148-1149 
All pseudo operation codes and symbolic 650 operation codes are stored in the 
symbolic op table . The table is in ascending order on the six high digits of each 
entry representing the numerical representation of the alphanumerical op code. 

The table entry for RAL, for example, is (7961730065) while that for REL is 
(7965731010). Thus the I address part of pseudo operation entries is the 
location of the first instruction of the pseudo routine while the two low order 
digits of 650 symbolic op code entries are the corresponding numerical op. 

Type Entries: 1990-1992 

The first instruction for types "blank", 1 and 2 is in location 1990, 1991, 1992 

respectively . 
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1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 









1 o 


CAT 


ION- 










^ 






LU 
















TA 


ADD 


RE S 


o 












D A 


Z> 






£» 


■* 


— IN 


STR 


UCT 
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A 


DDR 


ESS- 




> 




■ • r\ n> 


C 


ODE 






* r\ 


TAG-* 


«-I T 


AG-> 


^ 


\J r* 






* u 


w 








EMA 


RKS- 
















R 










< 






R 


EMA 


RKS- 








— >■ 














X 


X 


X 


X 














X 


X 


X 


X 














X 


X 


X 


X 
















T 


/ 


V 

' 




> 

TYPE ( IF BLANK ) — 

Q ^KirihJ Of AKILT TVBP 


k i 


\ > 


i 




8 =>NEGATIV 


IXI\ 1 I 

E 


I~C 











r ALPHABETIC 



ABSOLUTE 
PART 



FIGURE 3*. INPUT BLOCK : 1951 - 1960 
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1977 
1978 
1979 
1980 

1981 
1982 

1983 
1984 

1985 
1986 



IN 



DATA 



STR 



OP 



r 



ASS 



LO 



CAT 



ADDR ESS 



UCT 



COD 



E M 



E M 



EMB 



LO 



8 



LED 



CAT 



ION 



A R KS 



ION 



DDR 



A R 



ION 



NON-BLANK TYPE J 



NEGATIVE 



BYPASS 



PUNCH A 



K S 



IN 



«-D TAG 



ESS 



STR 



8 =K 



PUNCH B 



800X INSTRUCTION 



BLANK OUT L- 



UCT 



ARD 



8 



TAG- 



ION 



y 



ALPHABETIC 



NO.- 



h D- 
« I - 



J 



V, 



« OP- 



FIGURE 4 ; OUTPUT BLOCK .* 1977 - 1986 



41 



LOAD SOAP H 



LOAD- 
AVAILABILITY 
CARD 



INITIALIZE 



<EX 



READ 




MOVE ALPHA 
INPUT TO OUTPUT 



STEP CARD NO. 



STORE CONTROL INFO. 



( TYPE J 



PROCESS OP 



K 



pseudo 



MB50J 



J 



PROCESS L, D, I 



PSEUDO ROUTINE 



-><- 



f pui 



L — LOAD CARD 
NL= NO LOAD CARD 



PROCESS OP 



RELOCATE L, D, I 



figures: basic flow chart 
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PSEUDO-OPERATION FLOW CHARTS 



GEj 



INITIALIZE 



T 



(77) 



RESERVE FWA - LWA 



(77) 

JL 





SET DRUM TAG TO 8 






> 


r 




UNRESERVE FWA - LWA 



REG 




IS REGION 
CHAR. ALPHA 



KDn 



Y 



PROCESS LOCATION 



READ W2 -•• PUNCH W7 



IS I BLANK 



SET I = SOAP 2 



STORE REGION ORIGIN 



RESERVE FWA - LWA 

T 





& 




> 


f 


PUNCH PAT CARD 




>< 






PUNCH 

AVAILABILITY 

TABLE 






> 


f 






READ 





GrlD 
* 



STORE HEADING 
CHARACTER 



T 



(77) 



SET A D . A c 



T 



note: except for pat, these routines terminate at punch 
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CD 



SET TAG =8 




SET TAG = 8 



CjD 



SET TAG = 9 



1 £ 



TEST 



d-2000) 



§~j£ 




A & ABSOLUTE 
R = REGIONAL 
S = SYMBOLIC 



SET 



SET 
E= I+A, 



f RBR J 



RESERVE 
(FWA+A D ) - (LWA+A Q ) 



T 



■GION _( k, )_ 

FINED \r\/ 



CALCULATE 
REGIONAL 
ADDRESS 



TEST 
SYMBOL 




*<r 



SET 
E = EQUIV. 



SET E = REG. ADR. 



*4r 



TEST SYMBOLIC D 








STORE D PS E 



SET 
BYPAS 



TEST 
TAG 



£ 




RESERVE E 



NO T \ f FULL) 
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SET t-= l-+A[ 



is L<2000 



^ 



RESERVE L 



*e«- 



SET OUTPUT L 



RELOCATABLE ROUTINE 



PROCESS OP 



K^> 



O 



TEST L 



(f) ^ 



is L< 2000 | -(n) — 



BLANK OUT U 



D ) (SEE NEXT PAGE) 



L MAY BE 1) |F j NNNN | FIXED DRUM OR CORE 

2) | j NNNN | RELOCATABLE DRUM OR CORE 



BLANK OUT OP 



D DRUM 
F FIXED 
C CORE 



SET L— L+ Lie 



I 



is L <9060 



3 
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WHAT IS D 





»s D<2000 




TEST D^ 




0(S $ 



SET 

D = D+ Ar 



L_E 



SET 
D= D+ A, 



PROCESS D 



WHAT IS I 






SET 

I = t+ Ad 



SET 

1= i+Ac 



PROCESS I 



T 
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(PUNCH) 



¥ ▼ 

is I <2000 TEST * 5 

I >f L > 



(D se SYMBOL1ZER 
PART OF D) 



Subroutines 

SOAP II contains twenty-one subroutines. The following is a description of each 
subroutine giving 

A. Functional description 

B. Entry conditions and entry point 

C . Exit conditions (where applicable) 

D. Flow chart (where applicable) 

1 . Store K in all locations from FWA to LWA 

Entry: UA (K) Go to SUBR1 

LA(00, FWA, LWA) 
DIST (exit) 

2. Reserve or unreserve N sequential drum locations beginning at FWA. 

Entry: UA (00, 0000, FWA) Go to J SUB2R - Reserve 

LA (00, 0000, N-l) I SUB2U - Unreserve 

DIST (exit) 

3 . Process op code and exit to K or (K + 1) . 

Entry : DIST (00, 0000, K) Go to SUBR3 

Exit: K: 1 . Legal 650 op; numerical op stored in punch word 7 and 

optimizing table entry stored in "OPTIMV 
2. Illegal symbolic op; "OPTIM" set to (5505050999) and 
punch control word set to blank out assembled op. 

K + 1: Pseudo op (routine begins in 10XX) 
UA (00, 0000, 10XX) 
LA (irrelevant) 

4. Determine whether address is absolute, regional or symbolic and 
accordingly exit to K, (K + 1), or (K + 2). 

Entry: UA (alpha, address) Go to SUBR4 

LA (clear) 
DIST (00, 0000, K) 

Exit: K: Absolute 

K + 1: Regional 1 UA (alpha. address) 

K +■ 2: Symbolic J LA (clear) 
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Note.: If address is symbolic, it is automatically headed and stored in 
"HSYMB. " Upon exiting, the UA also contains the headed symbol , 

5. Test absolute address A and exit to K, (K + 1), (K + 2) or (K + 3). 

Go to SUBR5 



Entry: UA (irrelevant) 
LA (00, 0000, A) 
DIST (00, 0000, K) 


Exit: K 
K+ 1 
K+ 2 
K+ 3 


A < 2000 
: A = 800X 

9000 < A < 9059 
: Other 



UA (clear) 

LA (00, 0000, A) 



6. Test symbol and exit to K, K + 1, or K + 2. 

Entry : UA (symbol) Go to SUBR6 

LA (clear) 
DIST (00, 0000, K) 

Exit: K: In table ""N 

Equivalent in I address 
part of "EQUIV" 



UA (symbol) 
LA (00, L*. 0000) 
"LSYMB" (00, L*, 0000) 



K+l: Not in table 

K+2 Not in table and symbol table packed. 

Note : L* = symbol table location containing symbol on exit K or location 
in symbol table where symbol may be stored on exit (K + 1). 

7. Store symbol in symbol table L* location and equivalent E in equivalence table. 

Entry : UA (symbol) Go to SUBR7 

LA (00, L*, E) 
DIST (exit) 

8. Obtain equivalent E of symbol stored in symbol table location L*. 

Entry : UA (clear) Go to SUBR8 

LA (XX, L*, XXXX) 
DIST (exit) 

Exit: UA (clear) 

LA (00, L*, 0000) 
"EQUIV (00, 0000, E) 
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9. Calculate regional address A and exit to K or (K + 1). 

Entry: UA (alpha, regional address) Go to SUBR9 



LA (clear) 

DIST(00, 00oj8 , K); aj8=< 



f90 - L 
88 - D 
189 - I 



Exit: K: UA (clear) 

LA (00, 0000, A) 
K + 1 : Region undefined or A negative . 

10. Set "PUNCH A' T 8 in punch control word and execute punch instruction . 

Entry : UA (exit) Go to SUB10 

LA (clear) 

11 . Calculate optimum dynamic address and find and reserve "best" drum 
location L; exit to K or (K+ 1). 



Entry: 


UA (clear) 




f90 - L 


Go to SUB11 




LA (00, 00 afi ,K): 


o/8« \ 


88 - D 








L89 - I 




Exit: K: 


UA (clear) 

LA (00, 0000, L) 






K+l: 


Drum packed 









12. Set 8 in punch control word to hlank out assembled location. 

Entry : UA (exit) Go to SUB12 

LA (clear) 

13. Calculate optimum dynamic address XX. 

Entry: DIST (00, 000 fi , K) Go to SUB13 

8-D 



P 19-1 



Exit: K: UA (clear) 

LA (00, 0000, 00XX) 00 £ XX < 49 
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14. Punch availability table. 
Entry: DIST (exit) 

15. Head symbol. 

Entry: UA (symbol) 
LA (clear) 
DIST (exit) 

Exit: UA (headed symbol) 

LA (clear) 

16. Initialize assembly. 
Entry: DIST (exit) 

17. Calculate drum equivalent E of 800X 
Entry: UA (exit) 



Exit: UA (clear) 

LA (00, 0000, E) 

18 . Index address A giving A* . 



Entry: 



UA (irrelevant) 
LA (00, 0000, A) 
DIST (00, 00oc(3, K) 



■i 



8 -Drum 
9 -Core 







_f8-D 

T 9 " 1 



Exit: 



UA (irrelevant) 
LA (00, 0000, A*) 



19. Process location. 
Entry: DIST (exit) 

20. Process data address. 
Entry: DIST (exit) 

21 . Process Instruction address . 
Entry: DIST (exit) 



Go to SUB14 



Go to SUB15 



Go to SUB16 



Go to ( SB17D - D equivalent 
J SB17I - I equivalent 



Go to INDEX 



Go to PROCL 



Go to PROCD 



Go to PROCI 
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SUBROUTINE FLOW CHARTS 



SET L = FWA 



K— H_ 



IS L = LWA """"\Yy 



L + 1 — L 



SUBROUTINE 1 1 STORE K IN FWA - LWA 



<HH 



IS OP SYMBOLIC 



TLU SYMBOLIC OP TABLE 



IS OP LEGAL 



f 



KB> 



IS OP PSEUDO 



-©+CED 



SET OUTPUT NUMERIC OP 



GET OPTIMIZING TABLE ENTRY 



© 



BLANK OUT 
ASSEMBLED OP 



SET ILLEGAL 

OP OPTIMIZING 

CONSTANTS 



SUBROUTINE 3 : PROCESS OP CODE 
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SUB 2R 



SUB2U 



SET W=0 



SET W = 1 



SET N = N— 1 



CALC. Ao, Po FOR 



SET AL= Ao, P~ Po 



W— (Ai. P) 



IS N S= O 



Y > 



N-1- 



IS AL>Al96 



KiH 



Al+ 4 — AL 



P=9 



h& 



P+l — P 



AL-196— Al 



£ 



SET P= 



I 



AL-195— AL 
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SUBROUTINE 2 : RESERVE OR UNRESERVE N WORDS STARTING AT FWA 



IS C BLANK 



K7>-*0 



ls C 4 C 3 C 2 C, NUMERIC 



<Eh 



is 61 < c s < 89 



/k+2 ) 



Q+D 



SUBROUTINE 4 : ADDRESS TEST 



Tl_U RANGE TABLE GIVING Q 



(j^+gT) 



RANGE 





1 

2 




0000 < A < 1999 
f 8000 < A < 8003 
t 8005 < A < 8007 

9000 < A < 9059 


3 
>UTINI 


I 5 : A 


OTHER 

DDRESS RANGE TEST 
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SET SW OFF 



J. 



SCRAMBLE SYMBOL. GIVING L Q 



SET U { = L 



ARE CCL.^ = — (Yy^K-h 1 ^ 



IS c 



(L;>-S = 



IS L; MAX. 




K!H 



GET EQUIVALENT 



SET SW ON 



V V 



STEP L; 



SET L L =0000 



NOTE*. SWSYM set off 

DURING INITIALIZATION 



IS L*= J-o 



#0111 STOP 




SET SWSYM ON 



GZj 



h*® 



SUBROUTINE 6 : SYMBOL TEST 
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STORE SYMBOL. IN U 



CALC. L*=Q+R 

T T 



set L = 400 + Q 





Co) 






<T\ 






TESi k 


vv " 




) 




- 1 x^x 

V 


E— *-D.A. PART OF I_ 




E-^I.A. PART OF L. 












v 








EXIT 





SUBROUTINE 71 STORE SYMBOL AND EQUIVALENT 



CALC. !.*_ Q , R 



set L = 400 + Q 



<°> 



SET E n D.A. PART OF U 




JET E = I.A. PART OF U 



Li 



SUBROUTINE 8 : OBTAIN SYMBOLIC EQUIVALENT 
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set L := 960 + R 



(REG. ADR.= RNNNN) 



TEST C(L.) 



KE> 



calc. A = ORG. + NNNN-1 



TEST A 



a 



+ 1 



) 



SUBROUTINE 9 : CALCULATE REGIONAL ADDRESS 



SUBROUTINE 10 : (SEE PROGRAM LISTING) 



SUBROUTINE 12 : (SEE PROGRAM LISTING) 
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TEST DRUM TAG 



<i>-<j<ED 



CALCULATE OPTIMUM 
DYNAMIC ADDRESS 



calc. a = 600+ 4(D.A.) 



SET SW OFF 



SET A« = A 




IS A- MAX. 



HS> 



SET SW ON 



HSH 



\f \f 



<N> 



IS A.r: Aq 



STEP A; 



SET A' t = 0600 



STOP 



SCT GIVING P 



#222 



SET P DIGIT 
TO ZERO 



SET DRUM 
TAG TO 9 



CALC. L = F < A [t p > 



G±D 






SUBROUTINE 1 1 : FIND AND RESERVE BEST DRUM LOCATION 
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<2H 



1 



TEST £ 



<!> 



GET D 8 's 



-Q TEST B (Ty. 



<!> 



TEST A 




*<- 



CALC. OR=Q+R 



<°> 



TEST R 



<i> 



GET EVEN 8 



GET ODD 8 



1 £ 



CALC. L=-OR + 



TLU D, TO 
GET SHIFT 8'S 



TEST A 



GET 
OTHER 

8's 



GET 
SRD 

S's 



SET D.A. = -L MOD. 50 



A, B = OPTIMIZING 

INDICATOR DIGITS 

OR - OPTIMIZING REGISTER 
(OPREG) 



EXIT 



SUBROUTINE 13 I CALCULATE OPTIMUM DYNAMIC ADDRESS 
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SET PUNCH B 
CONTROL. WORD 



SET AS = A, 



set RS = 0000,0450 



> set PI = P0001 



RS-P1 



is PI =P0007 



P1t2-*P1 



I 



RS+500-*RS 



<I> 



r pu 



£ 



NCH 



A! MAX. 



SET P2 = P0002 



C(Ap— P2 



is P2 - P0008 



P2+2-*P2 



I 



M.»'~* A l 



— (y)— > 



EXIT 



A t +1 — A L 



RS-1499-*RS 



SUBROUTINE 14*. PUNCH AVAILABILITY TABLE 
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IS C! BLANK 





HEAD 



EXIT 



SUBROUTINE 15: HEADING 



SET CARD NO, TO ZERO 



SET HEADING CHAR. TO BLANK 



SET SYMBOL. TABLE AND EQUIVALENCE TABLE TO ZERO 



SET AVAILABILITY TABLE TO 1 1 1 1 1 1 1 1 I 1 



SET DRUM TAG TO 8 



SET SWSYM OFF 



SET REGION TABLE TO 8000000000 



EXIT 



SUBROUTINE 16: INITIALIZATION 
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CALCULATE OPTIMUM DYNAMIC ADDRESS 



<E> 



TEST D.A. , 



<°> 



is X = 3 



SET E = D.A. 



{" 



E=EVEN 
O -ODD 



is X-2 



set E = D. A.+ l 



SET E = D.A. 



EXIT 



SUBROUTINE 17 : CALCULATE 800X DRUM EQUIVALENT 



GET D TAG 



TEST ft 



<•> 



GET I TAG 



calc.8 = 2000T 



TEST Of 



(T = UNITS DIGIT OF TAG) 



1 s ^ s 



SET A = A + 



EXIT 



SUBROUTINE 18: INDEX ADDRESS 
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r<I> 



£ 



TEST 

DRUM 

TAG 



SET L=OR 



EXIT 



WHAT IS L 

<p Q> (*> to 



is L <2000 



K!> 



is L=800X 



S 



K!H 



SET 800X 

PUNCH CONTROL 



is 9000<L£9059 



ORC-»OR 



SET L 



I 



IS REG. DEFINED 



M 



h€h 



CALC. REG. ADR. 



TEST SYMBOL 



© 



SET L=EQ. 




( FULL - ) 



set D.A.^00 



FIND AND RESERVE 
BEST L 



<E> 



STORE SS^L 



f B = BLANK 
J A= ABSOLL 
]Rs REGION 

IS s SYMBOI 



. = ABSOLUTE 
IONAL 

1BOLIC 



{:-- 



= FOUND 
PACKED 



BLANK OUT L 



EXIT 



SUBROUTINE 19: PROCESS LOCATION 
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®- 



CALC. OPTIMUM D.A 



FIND AND RESERVE 
BEST D 




TEST SYMBOL. 





f 




\>«_J 


> 


> 




SET 
D = EQ. 




' 




CALCULATE 








OPTIMl 


IM D.A. 



E 



FIND AND RESERVE 

BEST D 



<Z> 



STORE SftjD 



BLANK OUT D 



EXIT 



SUBROUTINE 20 : PROCESS DATA ADDRESS 
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i-GH 



IS D BLANK 



CALC. OPT. D.A. 



K!> 



FIND AND RESERVE 
BEST I 



l-*OR8 



<d- 



TEST 
DRUM 
TAG 



SET I =ORB 



1 



SET I = EQ. 




WHAT IS I 



A) (R 




is K2000 



H2M 



INDEX 



is r=80ox 



W 



K2H 



SET r 



CAL, T = EQ.I 



is 9000 ll^ 9059 



KxH 



i 



I 



l'-* ORX 



SET I 



CAU, r = EQ.I 



» SET I 



ORB-* OR 



z 



EXIT 



IS REG, DEFINED — -/ N \ 



1 



CALC. REG. ADR. 



TEST SYMBOL 

r 35 (™D 

_ 1 J 

[ ~ EO " CALCULATE 



CALCULATE 
-OPTIMUM D.A* 



FIND AND RESERVE 
BEST I 



S 



^> 



STORE S«I 



BLANK OUT I 



EXIT 



SUBROUTINE 21 : PROCESS INSTRUCTION ADDRESS 
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1000 

READC 
1998 







SOAP 2 






SYMBOLIC 


OPTIMAL ASSEMBLY PROG 






FOR THE 








IBM 650 






DATA 


PROCESSING 


SYSTEM 


REG 


SOOOO 


0399 


SYMBOL TAB 


REG 


E0400 


0599 


EQUIV TABL 


REG 


A0600 


0799 


AVAIL TABL 


REG 


N0800 


0899 


NUM OP TAB 


BLR 


1000 


1000 


ENTRY 


BLR 


1001 


1012 


PSEUDO ENT 


BLR 


1021 


1049 


REG TABLE 


REG 


C1050 


1164 


SYM OP TAB 


BLA 


1098 


1099 




BLA 


1148 


1149 




BLR 


1900 


1900 


MANUAL PAT 


SYN 


READC 


1950 




BLR 


1951 


1962 


READ AREA 


REG 


T1990 


1992 


TYPE 


REG 


P1977 


1986 


PUNCH AREA 


BLR 


1998 


1999 




EOU 


XXXX1 


1961 




EOU 


XXXX2 


1962 




BLR 


1563 


1570 


TYPE2 


BLA 


1565 


1565 




BLA 


1569 


1569 




REG 


B0900 


0901 


SUB 2 


REG 


H0902 


0904 


TYPE 2 


REG 


M0905 


0907 




REG 


00908 


0909 




REG 


R1200 


1207 


SUB 5 


REG 


U1250 


1259 


SUB 13 


REG 


V0910 


0912 


EOU SYN 


REG 


X0913 


0914 


TYPE 


REG 


Y0915 


0916 


EQU SYN 


REG 


Z0917 


0919 




REG 


W0920 


0922 




BLR 


0923 


0968 


MULTIPLE R 


REG 


11300 


1307 


SUB 13 



LDD 

RCD 
LDD 
STD 
LDD 
STD 



CONTROL PROGRAM 
READC SUB16 



1999 
1951 

P0001 
1952 

P0002 



1998 



ENTRY 



1000 



69 1950 1353 



READ CARD 


1950 


70 


1999 


1998 


TRANSFER 


1998 


69 


1951 


1354 


ALPHABETIC 


1354 


24 


1977 


0980 


INPUT 


0980 


69 


1952 


1355 


TO 


1355 


24 


1978 


0981 



65 





LDD 


1953 






STD 


P0003 






LDD 


1954 






STD 


P0004 






LDD 


1955 






STD 


P0005 






LDD 


1956 






STD 


P0006 






RAL 


P0009 






ALO 


11 XXX 






STL 


P0009 






RAU 


1960 






SRT 


0002 






STU 


P0008 






AUP 


TORG 






STL 


P0010 


8003 


8003 


NOP 


0000 


9999 


PUNCH 


PCH 


P0001 


READC 


SETCC 


RAU 


READC 


SUB10 



1900 



LDD READC SUB14 



OUTPUT 


0981 


69 


1953 


1356 




1356 


24 


1979 


0982 




0982 


69 


1954 


1357 




1357 


24 


1980 


0983 




0983 


69 


1955 


1208 




1208 


24 


1981 


0984 




0984 


69 


1956 


1209 




1209 


24 


1982 


0985 


STEP 


0985 


65 


1985 


0989 


CARD 


0989 


15 


0992 


0997 


NUMBER 


0997 


20 


1985 


0988 


STORE 


0988 


60 


1960 


1015 


CONTROL 


1015 


30 


0002 


0971 


INFO 


0971 


21 


1984 


0987 




0987 


10 


0990 


0995 


TRANSFER 


0995 


20 


1986 


8003 


TO TYPE 


8003 


00 


0000 


9999 


PUNCH READ 


1350 


71 


1977 


1950 


SUDO EXIT 


1400 


60 


1950 


1405 


MANUAL PAT 


1900 


69 


1950 


1403 



T0001 


LDD 


X 


SUBR3 


TYPE 


1990 


69 


0993 


0996 


X0001 


LDD 




PROCL 


650 


0913 


69 


1016 


0969 




LDD 




PROCD 


COMMAND OR 


1016 


69 


1019 


0972 




LDD 


PUNCH 


PROCI 


CONSTANTS 


1019 


69 


1350 


1453 


X0002 


NOP 


0000 


8003 


PSEUDO OP 


0914 


00 


0000 


8003 


T0002 


RAU 


READC 


SUB10 


TYPE 1 COM 


1991 


60 


1950 


1405 


X 


00 
HED 


0000 
RELOCATE 
T 


X0001 
ROUTINE 




0993 


00 


0000 


0913 


T0003 


LDD 


Q 


SUBR3 


PROCESS OP 


1992 


69 


1195 


0996 


00002 


NOP 


0000 


ILLOP 


ILLEGAL OP 


0909 


00 


0000 


1013 


Q0001 


RAL 


1951 




IS L FIXED 


0908 


65 


1951 


1455 




SLT 
NZU 


0002 


REL 




1455 
1211 


35 
44 


0002 
1165 


1211 
1166 




RAU 


1957 




FIXED L 


1165 


60 


1957 


1261 




SUP 
BMI 


20001 




DRUM CORE 


1261 


11 


1014 


1169 






FC 




1169 


46 


1172 


0973 


r* ^* 


AUP 


8001 


RES 


FIXED DRUM 


1172 


10 


8001 


0979 


FC 


RAL 


1957 


SETL 


FIXED CORE 


0973 


65 


1957 


1311 


SR 
SETL 


RAL 
SLT 


XXXXl 
0004 


SETL 


SET L 


1450 
1311 


65 
35 


1961 
0004 


1311 
1171 




LDD 


P0008 






1171 


69 


1984 


1187 




SDA 


P0008 


PROD 




1187 


22 


1984 


1237 



66 



REL 


RAU 


1957 






SUP 


20001 






BMI 




RC 




AUP 


DOIFF 






BMI 




BL 




AUP 


20001 


RES 


RES 


STU 


XXXX1 






LDD 


SR 


SUB2R 


RC 


RAL 


1957 






ALO 


CDIFF 






SLO 


9060 






BMI 




BL 




ALO 


8001 


SETL 


BL 


RAU 


PROD 


SUB12 




REG 


J0944 


0944 




REG 


G0941 


0941 


PROD 


LDD 


PROI 






STD 


EXITX 






RAU 


1952 






LDD 


H 


SUBR4 


HO 001 


RAL 


1958 






SLO 


20001 






BMI 


1564 


1563 


H0002 


SRT 


0008 






AUP 


1500 


8003 


1563 


RAL 


CDIFF 


CDD 


1564 


RAL 


DDIFF 


CDD 


1566 


RAL 


1958 


J0001 


CDD 


ALO 


1958 


J0001 


H0003 


NOP 


0000 


G0003 




REG 


J0960 


0960 




REG 


F0955 


0955 


PRO I 


LDD 


PUNCH 






STD 


EXITX 






RAU 


1953 






LDD 


M 


SUBR4 


MO 001 


RAL 


1959 






SLO 


20001 






BMI 


1568 


1567 


M0002 


SRT 


0008 






AUP 


1504 


8003 


1567 


RAL 


CDIFF 


CDI 


1568 


RAL 


DDIFF 


CDI 


1570 


RAL 


1959 


J0001 


CD I 


ALO 


1959 


J0001 


M0003 


NOP 


0000 


F0003 





00 


0000 


00001 


9060 


00 


0000 


9060 


H 


00 


0000 


H0001 


1500 


00 


0000 


1500 



DRUM CORE 



RELOCATE 
DRUM ADDR 



RESERVE L 

RELOCATE 

CORE 



BLANK L 
D TYPE 2 

SET D EXIT 
WHAT IS D 

RELOCATE 
D OR C 

C D OR F 

C 

D 
F 

SYMBOLIC 
I 

SET I EXIT 
WHAT IS I 

RELOCATE 
D OR C 

C D OR F 

C 
D 
F 

SYMBOLIC 
CONSTANTS 



1166 

1361 

1219 

1222 

1179 

1182 

0979 

1214 

1173 

1411 

1269 

0977 

1180 

1183 



1190 
1553 
1099 
1457 
0905 
1313 
1419 
0906 
1175 
1567 
1568 
1570 
1469 
0907 

1195 
1272 
1210 
0974 



60 

11 

46 

10 

46 

10 

21 

69 

65 

15 

16 

46 

15 

60 



1957 

1014 

1222 

0975 

1182 

1014 

1961 

1450 

1957 

1264 

1272 

1180 

8001 

1237 



1361 

1219 

1173 

1179 

1183 

0979 

1214 

1503 

1411 

1269 

0977 

1183 

1311 

0991 



1237 


69 


1190 


1193 


1193 


24 


1196 


0999 


0999 


60 


1952 


1407 


1407 


69 


1210 


1213 


0902 


65 


1958 


1263 


1263 


16 


1014 


1319 


1319 


46 


1564 


1563 


0903 


30 


0008 


1221 


1221 


10 


0974 


8003 


1563 


65 


1264 


1369 


1564 


65 


0975 


1369 


1566 


65 


1958 


0944 


1369 


15 


1958 


944 


0904 


00 


0000 


943 



69 

24 

60 

69 

65 

16 

46 

30 

10 

65 

65 

65 

15 

00 



1350 

1196 

1953 

1260 

1959 

1014 

1568 

0008 

0978 

1264 

0975 

1959 

1959 

OOOO 



1553 

1099 

1457 

1213 

1313 

1419 

1567 

1175 

8003 

1469 

1469 

0960 

0960 

0957 



00 0000 908 

00 OOOO 9060 

00 OOOO 0902 

00 OOOO 1500 



67 



M 


00 


0000 


M0001 


1504 


00 


0000 


1504 


XXXX1 


01 
HED 


0000 


XXXX1 






BOP ROUTINE 


1001 


LDD 




SUB16 




RAU 


READC 


SUB 10 






BLR ROUTINE 


1002 


RAL 


1959 


BLR 


BLR 


SLO 


1958 






AUP 


8001 






LDD 


SETCC 


SUB2R 






RBR ROUTINE 


1012 


RAU 


DDIFF 






ALO 


1959 


BLR 






BLA ROUTINE 


1003 


LDD 


H8XXX 






STD 


DRUMT 






RAL 


1959 






SLO 


1958 






AUP 


8001 






LDD 


SETCC 


SUB2U 






REG ROUTINE 




HED 


R 




1004 


RAL 


1952 






SRT 


0008 






SLO 


90XXX 






BMI 




1002 




ALO 


29XXX 






BMI 


1002 






SLT 


0004 






ALO 


ST 






AUP 


1958 






AUP 


H9XXX 


8002 


8002 


STU 


9999 


1002 


ST 


STU 
HED 


1021 


1002 






EQU REQ 


AND SYf 




HED 


Z 




1005 


LDD 


H8XXX 


BOTH 


1006 


LDD 


H9XXX 


BOTH 


BOTH 


STD 


TAG 





ERASEABLE 



1260 00 0000 0905 
0978 00 0000 1504 
1961 01 0000 1961 



INITIALIZE 
PUNCH 


1001 
1404 


69 
60 


1404 
1950 


1353 
1405 


RESERVE 
FWA TO 
LWA 


1002 
1363 
1413 
1271 


65 
16 
10 
69 


1959 
1958 
8001 
1400 


1363 
1413 
1271 
1503 




1012 
1229 


60 
15 


0975 
1959 


1229 
1363 


SET DRUM 

TAG TO 8 

UNRESERVE 

FWA 

TO 

LWA 


1003 
1309 
1215 
1463 
1513 
1321 


69 
24 
65 
16 
10 
69 


1406 
1212 
1959 
1958 
8001 
1400 


1309 
1215 
1463 
1513 
1321 
1603 



IS 


1004 


65 


1952 


1507 


REGION 


1507 


30 


0008 


1225 


CHARACTER 


1225 


16 


1178 


1233 


ALPHABETIC 


1233 


46 


0986 


1002 




0986 


15 


1189 


1243 




1243 


46 


1002 


1197 


STORE 


1197 


35 


0004 


1557 


REGION 


1557 


15 


1310 


1265 


ORIGIN 


1265 


10 


1958 


1613 




1613 


10 


1216 


8002 




8002 


21 


9999 


1002 


CONSTANTS 


1310 


21 


1021 


1002 



EQU 
SYN 



1005 


69 


1406 


1359 


1006 


69 


1216 


1359 


1359 


24 


1262 


1315 



68 





RAU 


1953 




WHAT IS I 


1315 


60 


1953 


1607 




LDO 


Z 


SUBR4 




1607 


69 


1360 


1213 


ZOOOl 


RAL 


1959 


YOOOl 


ABSOLUTE 


0917 


65 


1959 


0915 


ZO002 


LDD 


Y 


SUBR9 


REGIONAL 


0918 


69 


1371 


1174 


YOOOl 


STL 


E 


TD 




0915 


20 


1519 


1322 


Y0002 


RAL 


P0010 


BP 


REG ERROR 


0916 


65 


1986 


1191 


Z0003 


LDO 


W 


SUBR6 


SYMBOLIC 


0919 


69 


1372 


1275 


WOOOl 


RAL 


EQUIV 


YOOOl 


S DEFINED 


0920 


65 


1223 


0915 


W0002 


RAL 


P0010 


BP 


S UNDEFIND 


0921 


65 


1986 


1191 


W0003 


RAL 


P0O10 


BP 


S TAB FULL 


0922 


65 


1986 


1191 


TD 


RAU 


1952 




HEAD D 


1322 


60 


1952 


1657 




LDD 




SUB 15 


AND EQUATE 


1657 


69 


1410 


1663 




LDD 


V 


SUBR6 


TO E 


1410 


69 


1713 


1275 


VOO03 


RAL 


P0010 


BP 


S TAB FULL 


0912 


65 


1986 


1191 


VOOOl 


ALO 


E 


SD 




0910 


15 


1519 


1273 


V0O02 


ALO 


E 


SD 




0911 


15 


1519 


1273 


SD 


LDD 


TT 


SUBR7 




1273 


69 


0976 


1279 


TT 


LDD 


TAG 




TEST TAG 


0976 


69 


1262 


1365 




BDO 


SETCC 






1365 


.90 


1400 


0970 




RAU 


E 




RESERVE E 


0970 


60 


1519 


1323 




LDD 


SETCC 


SUB2R 




1323 


69 


1400 


1503 


1011 


LDD 


H8XXX 




REQ 


1011 


69 


1406 


1409 




STD 


TAG 




ROUTINE 


1409 


24 


1262 


1415 




RAL 


1959 




IS I 


1415 


65 


1959 


1763 




SLO 


20001 




DRUM COR 


1763 


16 


1014 


1569 




BMI 


D 






1569 


46 


1422 


1373 




ALO 


CDIFF 


CD 




1373 


15 


1264 


1619 


D 


ALO 


DDIFF 


CD 




1422 


15 


0975 


1619 


CD 


ALO 


20001 


YOOOl 




1619 


15 


1014 


0915 


Z 


00 


0000 


ZOOOl 


CONSTANTS 


1360 


00 


0000 


0917 


Y 


00 


0089 


YOOOl 




1371 


00 


0089 


0915 


W 


00 


0000 


WOOOl 




1372 


00 


0000 


0920 


V 


00 


0000 


VOOOl 




1713 


00 


0000 


0910 


88 


00 


8800 


0000 




1500 


00 


8800 


0000 


BP 


ALO 


88 




BY PASS 


1191 


15 


1500 


1505 




STL 


P0010 


PUNCH 




1505 


20 


1986 


1350 


TAG 


01 


0000 


TAG 


ERASEABLE 


1262 


01 


0000 


1262 


E 


01 
HED 


0000 


E 




1519 


01 


0000 


1519 






ALF ROUTINE 












1007 


LDD 




PROCL 


PROCES LOC 


1007 


69 


1460 


0969 




LDD 


1952 






1460 


69 


1952 


1555 




STD 


P0007 






1555 


24 


1983 


1186 




RAL 


1953 




REPLACE 


1186 


65 


1953 


1707 




NZE 


PUNCH 




BLANK I 


1707 


45 


1350 


1461 




LDD 


S0AP2 




BY 


1461 


69 


1314 


1017 




STD 


P0003 


PUNCH 


S0AP2 


1017 


24 


1979 


1350 



69 



S0AP2 


ALF 


S0AP2 


S0AP2 


CONSTANT 


1314 


82 


7661 


7792 






PAT ROUTINE 












1008 


RAU 




SUB10 




1008 


60 


1511 


1405 




LDD 


READC 


SUB14 




1511 


69 


1950 


1403 






HED ROUTINE 












1009 


RAL 


1952 




STORE 


1009 


65 


1952 


1757 




SRT 


0008 




HEADING 


1757 


30 


0008 


1325 




STL 


OOOOH 


SETCC 


CHARACTER 


1325 


20 


1329 


1400 






REL ROUTINE 














HED 


M 














1010 


RAL 


1952 




SET 


1010 


65 


1952 


1807 




NZE 




SDD 


DRUM 


1807 


45 


1510 


1561 




RAL 


1958 


SDD 


AND 


1510 


65 


1958 


1561 


SDD 


STL 


DDIFF 




CORE 


1561 


20 


0975 


1228 




RAL 


1953 




DELTAS 


1228 


65 


1953 


1857 




NZE 




SCO 




1857 


45 


1560 


1611 




RAL 


1959 


SCD 




1560 


65 


1959 


1611 


SCO 


STL 


CDIFF 


SETCC 




1611 


20 


1264 


1400 


DOIFF 


01 


0000 


DDIFF 


ERASEABLE 


0975 


01 


0000 


975 


CDIFF 


01 
HED 


0000 


CDIFF 




1264 


01 


0000 


1264 






LOAD AVAILABILITY 


TABLE 












HED 


L 














1999 


RAL 


1951 




CALC 


1999 


65 


1951 


1605 




SRT 


0004 




LOC 


1605 


30 


0004 


1465 




SLT 


0004 




W2 


1465 


35 


0004 


1375 




ALO 


8002 






1375 


15 


8002 


1283 




ALO 


8002 






1283 


15 


8002 


1241 




ALO 


CI 






1241 


15 


0994 


1149 




AUP 


C2 


8003 




1149 


10 


1352 


8003 


8003 


LDD 


9995 


8002 


LOAD 


8003 


69 


9995 


8002 


8002 


STD 


9994 


TUP 


TABLE 


8002 


24 


9994 


1247 


TUP 


SUP 


TW 






1247 


11 


1550 


1655 




NZU 




READC 




1655 


44 


1459 


1950 




AUP 


TWP2 






1459 


10 


1312 


1167 




ALO 


1DXXX 


8003 




1167 


15 


1020 


8003 


CI 


STD 


A0001 


TUP 


CONSTANTS 


0994 


24 


0600 


1247 


C2 


LDD 


1952 


8002 




1352 


69 


1952 


8002 


TW 


LDD 


1958 


8002 




1550 


69 


1958 


8002 


TWP2 


LDD 
HED 


1960 


8002 




1312 


69 


1960 


8002 



70 



OPTIMIZING TABLE 



NOOOl 

N0O02 

N0003 

N0004 

N0005 

N0006 

N0007 

N0008 

N0009 

NOOIO 

NOOll 

N0012 

N0013 

N0014 

N0015 

N0016 

N0017 

N0018 

N0019 

N0020 

N0021 

N0022 

N0023 

N0024 

N0025 

N0026 

N0027 

N0028 

N0029 

N0030 

N0031 

N0032 

N0033 

N0034 

N0035 

N0036 

N0037 

N0038 

N0039 

N0040 

N0041 

N0042 

N0043 

N0044 

N0045 

N0046 

N0047 

N0048 

N0049 

N0050 

N0051 

N0052 

N0053 



00 

00 

33 

00 

00 

00 

00 

00 

33 

33 

33 

33 

99 

99 

33 

33 

33 

33 

33 

33 

54 

45 

34 

34 

33 

44 

00 

00 

33 

33 

00 

00 

33 

33 

33 

00 

00 

33 

33 

33 

33 

33 

33 

33 

34 

43 

33 

33 

33 

33 

00 

00 

00 



0404 

0404 

2322 

0505 

0505 

0505 

0505 

0505 

1212 

0202 

0504 

0504 

9999 

9999 

1110 

0504 

0504 

0504 

0504 

2120 

0303 

0303 

0303 

0303 

0303 

0505 

0505 

0505 

1212 

0202 

0000 

0000 

2726 

2726 

0000 

0000 

0000 

2726 

2726 

0000 

0404 

0404 

0404 

0404 

0405 

0504 

0404 

0505 

0404 

0404 

0000 

0000 

0000 



0998 

0998 

0999 

0998 

0998 

0998 

0998 

0998 

0999 

0999 

0999 

0999 

9999 

9999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0998 

0998 

0998 

0999 

0999 

0988 

0888 

0999 

0999 

0999 

0988 

0988 

0999 

0999 

0999 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0898 

0898 

0898 



NOP 
HLT 
UFA 
RTC 
RTN 
RTA 

WTN 

WTA 

LIB 

LDI 

AUP 

SUP 

NOT USED 

NOT USED 

DIV 

ALO 

SLO 

A ML 

SML 

MPY 

STL 

STU 

SDA 

SIA 

STD 

NTS 

BIN 

SET 

SIB 

STI 

SRT 

SRD 

FAD 

FSB 

FDV 

SLT 

SCT 

FAM 

FSM 

FMP 

NZA 

BMA 

NZB 

BMB 

NZU 

NZE 

BMI 

BOV 

NZC 

BMC 

AXA 

SXA 

AXB 



0800 


00 


0404 


0998 


0801 


00 


0404 


0998 


0802 


33 


2322 


0999 


0803 


00 


0505 


0998 


0804 


00 


0505 


0998 


0805 


00 


0505 


0998 


0806 


00 


0505 


0998 


0807 


00 


0505 


0998 


0808 


33 


1212 


999 


0809 


33 


0202 


0999 


0810 


33 


0504 


0999 


0811 


33 


0504 


0999 


0812 


99 


9999 


9999 


0813 


99 


9999 


9999 


0814 


33 


1110 


0999 


0815 


33 


0504 


0999 


0816 


33 


0504 


0999 


0817 


33 


0504 


0999 


0818 


33 


0504 


0999 


0819 


33 


2120 


0999 


0820 


54 


0303 


999 


0821 


45 


0303 


0999 


0822 


34 


0303 


0999 


0823 


34 


0303 


0999 


0824 


33 


0303 


0999 


0825 


44 


0505 


998 


0826 


00 


0505 


0998 


0827 


00 


0505 


0998 


0828 


33 


1212 


999 


0829 


33 


0202 


999 


0830 


00 


0000 


0988 


0831 


00 


0000 


0888 


0832 


33 


2726 


0999 


0833 


33 


2726 


0999 


0834 


33 


0000 


0999 


0835 


00 


0000 


0988 


0836 


00 


0000 


0988 


0837 


33 


2726 


0999 


0838 


33 


2726 


0999 


0839 


33 


0000 


0999 


0840 


33 


0404 


0998 


0841 


33 


0404 


0998 


0842 


33 


0404 


0998 


0843 


33 


0404 


998 


0844 


34 


0405 


0998 


0845 


43 


0504 


0998 


0846 


33 


0404 


0998 


0847 


33 


0505 


0998 


0848 


33 


0404 


0998 


0849 


33 


0404 


0998 


0850 


00 


0000 


0898 


0851 


00 


0000 


0898 


0852 


00 


0000 


0898 



71 



N0054 

N0055 

N0056 

N0057 

N0058 

N0059 

N0060 

N0061 

N0062 

N0063 

N0064 

N0065 

N0066 

N0067 

N0068 

N0069 

N0070 

N0071 

N0072 

N0073 

N0074 

N0075 

N0076 

N0077 

N0078 

N0079 

N0080 

N0081 

N0082 

N0083 

N0084 

N0085 

N0086 

N0087 

N0088 

N0089 

N0090 

N0091 

N0092 

N0093 

N0094 

N0095 

N0096 

N0097 

N0098 

N0099 

NO 100 



C0001 
C0002 
C0003 
C0004 
C0005 



00 

44 

00 

00 

00 

00 

00 

33 

33 

99 

99 

33 

33 

33 

33 

33 

33 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

33 

00 

00 

00 

00 

00 

44 

33 

33 

33 

33 

33 

33 

33 

33 

44 



61 
61 
61 
61 
61 



0000 

0505 

0505 

0505 

0505 

0000 

0000 

0504 

0504 

9999 

9999 

1110 

0504 

0504 

0504 

0504 

0303 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0505 

0000 

0000 

0000 

0000 

0506 

0606 

0606 

0606 

0000 

0000 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 

0505 



0898 

0998 

0998 

0998 

0998 

0898 

0898 

0999 

0999 

9999 

9999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0999 

0898 

0898 

0898 

0898 

0999 

0998 

0998 

0998 

0898 

0898 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 

0998 



SYMBOLIC OP TABLE 



7366 
7376 
7473 
8477 
8761 



1007 
0015 
0017 
0010 
0050 



SXB 

NEF 

RWD 

WTM 

BST 

AXC 

SXC 

RAU 

RSU 

NOT USED 

NOT USED 

DVR 

RAL 

RSL 

RAM 

RSM 

LDD 

RD1 

WR1 

RC1 

RD2 

WR2 

RC2 

RD3 

WR3 

RC3 

RPY 

RAA 

RSA 

RAB 

RSB 

TLU 

SDS 

RDS 

WDS 

RAC 

RSC 

BDO 

BD1 

BD2 

BD3 

BD4 

BD5 

BD6 

BD7 

BD8 

BD9 



ALF 
ALO 
AML 
AUP 
AXA 



0853 


00 


0000 


0898 


0854 


44 


0505 


0998 


0855 


00 


0505 


0998 


0856 


00 


0505 


0998 


0857 


00 


0505 


0998 


0858 


00 


0000 


0898 


0859 


00 


0000 


0898 


0860 


33 


0504 


0999 


0861 


33 


0504 


0999 


0862 


99 


9999 


9999 


0863 


99 


9999 


9999 


0864 


33 


1110 


999 


0865 


33 


0504 


0999 


0866 


33 


0504 


0999 


0867 


33 


0504 


0999 


0868 


33 


0504 


0999 


0869 


33 


0303 


0999 


0870 


00 


0000 


0999 


0871 


00 


0000 


0999 


0872 


00 


0000 


0999 


0873 


00 


0000 


0999 


0874 


00 


0000 


0999 


0875 


00 


0000 


0999 


0876 


00 


0000 


0999 


0877 


00 


0000 


0999 


0878 


00 


0000 


0999 


0879 


00 


0505 


0999 


0880 


00 


0000 


0898 


0881 


00 


0000 


0898 


0882 


00 


0000 


0898 


0883 


00 


0000 


0898 


0884 


33 


0506 


0999 


0885 


00 


0606 


0998 


0886 


00 


0606 


0998 


0887 


00 


60 6 


998 


0888 


00 


0000 


0898 


0889 


00 


0000 


0898 


0890 


44 


0505 


0998 


0891 


33 


0505 


0998 


0892 


33 


0505 


0998 


0893 


33 


0505 


0998 


0894 


33 


0505 


0998 


0895 


33 


0505 


0998 


0896 


33 


0505 


998 


0897 


33 


0505 


0998 


0898 


33 


0505 


998 


0899 


44 


0505 


0998 


1050 


61 


7366 


1007 


1051 


61 


7376 


0015 


1052 


61 


7473 


0017 


1053 


61 


8477 


0010 


1054 


61 


8761 


0050 



12 



C0006 


61 


8762 


0052 


AXB 


1055 


61 


8762 


0052 


C0007 


61 


8763 


0058 


AXC 


1056 


61 


8763 


0058 


C0008 


62 


6476 


0090 


BOO 


1057 


62 


6476 


0090 


C0009 


62 


6491 


0091 


BD1 


1058 


62 


6491 


0091 


C0010 


62 


6492 


0092 


BD2 


1059 


62 


6492 


0092 


COOll 


62 


6493 


0093 


BD3 


1060 


62 


6493 


0093 


C0012 


62 


6494 


0094 


BD4 


1061 


62 


6494 


0094 


C0013 


62 


6495 


0095 


B05 


1062 


62 


6495 


0095 


C0014 


62 


6496 


0096 


BD6 


1063 


62 


6496 


0096 


C0015 


62 


6497 


0097 


BD7 


1064 


62 


6497 


0097 


C0016 


62 


6498 


0098 


BD8 


1065 


62 


6498 


0098 


COO 17 


62 


6499 


0099 


B09 


1066 


62 


6499 


0099 


C0018 


62 


6975 


0026 


BIN 


1067 


62 


6975 


0026 


C0019 


62 


7361 


1003 


BLA 


1068 


62 


7361 


1003 


C0020 


62 


7379 


1002 


BLR 


1069 


62 


7379 


1002 


C0021 


62 


7461 


0041 


BMA 


1070 


62 


7461 


0041 


C0022 


62 


7462 


0043 


BMB 


1071 


62 


7462 


0043 


C0023 


62 


7463 


0049 


BMC 


1072 


62 


7463 


0049 


C0024 


62 


7469 


0046 


BMI 


1073 


62 


7469 


0046 


C0025 


62 


7677 


1001 


BOP 


1074 


62 


7677 


1001 


C0026 


62 


7685 


0047 


BOV 


1075 


62 


7685 


0047 


C0027 


62 


8283 


0057 


BST 


1076 


62 


8283 


0057 


C0028 


64 


6985 


0014 


DIV 


1077 


64 


6985 


0014 


C0029 


64 


8579 


0064 


DVR 


1078 


64 


8579 


0064 


C0030 


65 


7884 


1005 


EQU 


1079 


65 


7884 


1005 


C0031 


66 


6164 


0032 


FAD 


1080 


66 


6164 


0032 


C0032 


66 


6174 


0037 


FAM 


1081 


66 


6174 


0037 


C0033 


66 


6485 


0034 


FDV 


1082 


66 


6485 


0034 


C0034 


66 


7477 


0039 


FMP 


1083 


66 


7477 


0039 


C0035 


66 


8262 


0033 


FSB 


1084 


66 


8262 


0033 


C0036 


66 


8274 


0038 


FSM 


1085 


66 


8274 


0038 


C0037 


68 


6564 


1009 


HED 


1086 


68 


6564 


1009 


C0038 


68 


7383 


0001 


HLT 


1087 


68 


7383 


0001 


C0039 


73 


6464 


0069 


LDO 


1088 


73 


6464 


0069 


C0040 


73 


6469 


0009 


LDI 


1089 


73 


6469 


0009 


C0041 


73 


6962 


0008 


LIB 


1090 


73 


6962 


0008 


C0042 


74 


7788 


0019 


MPY 


1091 


74 


7788 


0019 


C0043 


75 


6566 


0054 


NEF 


1092 


75 


6566 


0054 


C0044 


75 


7677 


0000 


NOP 


1093 


75 


7677 


0000 


C0045- 


75 


8382 


0025 


NTS 


1094 


75 


8382 


0025 


C0046 


75 


8961 


0040 


NZA 


1095 


75 


8961 


0040 


C0047 


75 


8962 


0042 


NZB 


1096 


75 


8962 


0042 


C0048 


75 


8963 


0048 


NZC 


1097 


75 


8963 


0048 


C0051 


75 


8965 


0045 


NZE 


1100 


75 


8965 


0045 


C0052 


75 


8984 


0044 


NZU 


1101 


75 


8984 


0044 


C0053 


77 


6183 


1008 


PAT 


1102 


77 


6183 


1008 


C0054 


77 


6368 


0071 


PCH 


1103 


77 


6368 


0071 


C0055 


79 


6161 


0080 


RAA 


1104 


79 


6161 


0080 


C0056 


79 


6162 


0082 


RAB 


1105 


79 


6162 


0082 


C0057 


79 


6163 


0088 


RAC 


1106 


79 


6163 


0088 


C0058 


79 


6173 


0065 


RAL 


1107 


79 


6173 


0065 


C0059 


79 


6174 


0067 


RAM 


1108 


79 


6174 


0067 


C0060 


79 


6184 


0060 


RAU 


1109 


79 


6184 


0060 


C0061 


79 


6279 


1012 


RBR 


1110 


79 


6279 


1012 


C0062 


79 


6364 


0070 


RCD 


1111 


79 


6364 


0070 



73 



SUB 1 STORE K IN FWA TO LWA 





HED 


1 














SUBR1 


STD 


EXITX 




STORE EXIT 


1600 


24 


1196 


1199 




STU 


XXXX1 




STORE K 


1199 


21 


1961 


1364 




LDO 


FWA 




SET 


1364 


69 


1217 


1170 




SDA 


FWA 




FWA 


1170 


22 


1217 


1220 




SLT 


0004 




LWA 


1220 


35 


0004 


1181 




SDA 


XXXX2 




ADDRESSES 


1181 


22 


1962 


1515 




RAU 


FWA 






1515 


60 


1217 


1421 




ALO 


XXXX1 


8003 




1421 


15 


1961 


8003 


8003 


STL 


9999 


NEXT 


STORE K 


8003 


20 


9999 


1402 


NEXT 


SUP 


XXXX2 




END OF 


1402 


11 


1962 


1267 




NZU 




EXITX 


LOOP TEST 


1267 


44 


1471 


1196 




AUP 


8001 






1471 


10 


8001 


1379 




AUP 


1DXXX 


8003 


STEP 


1379 


10 


1020 


8003 


FWA 


STL 


9998 


NEXT 


CONSTANTS 


1217 


20 


9998 


1402 


XXXX2 


01 
HED 


0000 


XXXX2 


ERASEABLE 


1962 


01 


0000 


1962 






SUB 2 RESERVE UNRESERVE 












HED 


2 














SUB2R 


STD 


EXITY 




RESERVE 


1503 


24 


1813 


1316 




LDD 


2 


RU 


ENTRY 


1316 


69 


1769 


1472 


SUB2U 


STD 


EXITY 




UNRESERVE 


1603 


24 


1813 


1366 




LDD 


11 


RU 


ENTRY 


1366 


69 


1565 


1472 


RU 


STD 


W 




SET W 


1472 


24 


1246 


1299 




STL 


N 




STORE N 


1299 


20 


1653 


1556 




SLO 


8001 




CALC AO 


1556 


16 


8001 


1913 




AUP 


8003 




AND PO 


1913 


10 


8003 


1571 




SRT 


0003 






1571 


30 


0003 


1479 




STU 


X 






1479 


21 


1284 


1287 




SUP 


8001 






1287 


11 


8001 


1245 




SLT 


0001 






1245 


35 


0001 


1451 




STU 


P 






1451 


21 


1606 


1609 




SUP 


8001 






1609 


11 


8001 


1367 




SLT 


0002 






1367 


35 


0002 


1473 




AUP 


8003 






1473 


10 


8003 


1281 




AUP 


X 






1281 


10 


1284 


1239 




ALO 


P 






1239 


15 


1606 


1711 




SLT 


0004 






1711 


35 


0004 


1621 




ALO 


CI 






1621 


15 


1506 


1761 




STL 


B0002 






1761 


20 


0901 


1554 




LDD 


C2 






1554 


69 


1188 


1291 




SDA 


SPR 






1291 


22 


1231 


1334 




AUP 


C3 


SU 




1334 


10 


1337 


1423 


SU 


STU 


SA 






1423 


21 


1401 


1604 




AUP 


C4 


8003 




1604 


10 


1558 


8003 


8003 


RAL 


9992 


B0002 




8003 


65 


9992 


0901 


B0002 


SLT 


0009 


XX 




0901 


35 


0009 


1521 


XX 


STU 


UH 






1521 


21 


1176 


1429 




SLT 


0001 






1429 


35 


0001 


1185 




RAL 


8002 






1185 


65 


8002 


1293 



75 





AUP 


W 






1293 


10 


1246 


1351 




SRT 


0001 






1351 


30 


0001 


1907 




AUP 


UH 


SPR 




1907 


10 


1176 


1231 


SPR 


SRT 


0009 


SA 




1231 


30 


0009 


1401 


SA 


STL 


9983 


B0001 




1401 


20 


9983 


0900 


B0001 


RAL 


N 




IS N ZERO 


0900 


65 


1653 


1308 




NZE 




EXITY 




1308 


45 


1362 


1813 




SLO 


11 




REDUCE N 


1362 


16 


1565 


1669 




STL 


N 




BY 1 


1669 


20 


1653 


1456 




RAU 


SA 




IS AI 


1456 


60 


1401 


1705 




SUP 


A197 




IN LAST 


1705 


11 


1358 


1863 




BMI 




TP 


BLOCK OF 


1863 


46 


1266 


1317 




AUP 


A201 


SU 


4 


1266 


10 


1719 


1423 


TP 


RAL 


SPR 




IS P 9 


1317 


65 


1231 


1235 




SLO 


C2 






1235 


16 


1188 


1343 




NZE 




ZP 




1343 


45 


1296 


1297 




ALO 


C5 




STEP P 


1296 


15 


1249 


1703 




LDO 


CI 






1703 


69 


1506 


1509 




SDA 


B0002 






1509 


22 


0901 


1454 




STL 


SPR 






1454 


20 


1231 


1184 




RAU 


SA 




REDUCE AI 


1184 


60 


1401 


1755 




SUP 


C6 


SU 


BY 196 


1755 


11 


1408 


1423 


ZP 


LDD 


CI 




SET P 


1297 


69 


1506 


1559 




STD 


B0002 




TO ZERO 


1559 


24 


0901 


1504 




LDO 


C7 






1504 


69 


1458 


1661 




STD 


SPR 






1661 


24 


1231 


1234 




RAU 


SA 




REDUCE AI 


1234 


60 


1401 


1805 




SUP 


C8 


SU 


BY 195 


1805 


11 


1508 


1423 


CI 


SLT 


0000 


XX 


CONSTANTS 


1506 


35 


0000 


1521 


C2 


SRT 


0009 


SA 




1188 


30 


0009 


1401 


C3 


STL 


A0001 


B0001 




1337 


20 


0600 


0900 


C4 


45 


0000 


0001 




1558 


45 


0000 


0001 


11 


00 


0000 


0001 




1565 


00 


0000 


0001 


A197 


STL 


A0197 


B0001 




1358 


20 


0796 


0900 


A201 


STL 


A0201 


B0001 




1719 


20 


0800 


0900 


C5 


SRT 


0010 


SA 




1249 


30 


0010 


1401 


C6 


00 


0196 


0000 




1408 


00 


0196 


0000 


C7 


SRT 


0000 


SA 




1458 


30 


0000 


1401 


C8 


00 


0195 


0000 




1508 


00 


0195 


0000 


Z 


00 


0000 


0000 




1769 


00 


0000 


0000 


w 


01 


0000 


w 


ERASEABLE 


1246 


01 


0000 


1246 


N 


01 


0000 


N 




1653 


01 


0000 


1653 


B0O02 


01 


0000 


B0002 




0901 


01 


0000 


0901 


SPR 


01 


0000 


SPR 




1231 


01 


0000 


1231 


SA 


01 


0000 


SA 




1401 


01 


0000 


1401 


UH 


01 


0000 


UH 




1176 


01 


0000 


1176 


X 


01 
HED 


0000 


X 




1284 


01 


0000 


1284 






SUB 3 PROCESS OP 


CODE 












HED 


3 















76 



SUBR3 


STD 


EXITX 






RAL 


1954 






SRT 


0004 






NZE 




ILLOP 




SLT 


0006 






N2U 




NUM 




SRT 


0002 






STL 


XXXX1 






SLO 


8001 






TLU 


C0001 






ALO 


1 


8002 


8002 


RAL 


9997 


NEXT 


NEXT 


SLO 


XXXX1 






SLT 


0006 






NZU 


ILLOP 






SLT 


0001 






NZU 


PSEU 






SLT 


0001 


SNO 


SNO 


STL 


P0007 






SRT 


0004 






ALO 


3 


8002 


8002 


LDD 


9996 


NEX 


NEX 


STD 


OPTIM 


EXITX 


NUM 


SLO 


4 






SLT 


0002 






SLO 


8002 






SRT 


0001 






ALO 


8001 


SNO 


ILLOP 


RAL 


P0010 






ALO 


5 






STL 


P0010 






LDD 


6 


NEX 


PSEU 


SLT 


0003 






ALO 


EXITX 






ALO 


11 XXX 


8002 


1 


RAL 


0000 


NEXT 


2 


10 


0000 


0000 


3 


LDD 


N0001 


NEX 


4 


90 


9000 


0000 


5 


00 


0000 


0008 


6 


55 
HED 


0505 


0999 






SUB 4 WHAT IS 




HED 


4 




SUBR4 


STD 


EXITZ 






STU 


XXXX1 






SRT 


0008 






NZU 




EXITZ 




STU 


XXXX2 





STORE EXIT 


0996 


24 


1196 


1349 




1349 


65 


1954 


1659 


IS OP 


1659 


30 


0004 


1819 


BLANK 


1819 


45 


1522 


1013 


IS OP 


1522 


35 


0006 


1387 


NUMERIC 


1387 


44 


1341 


1192 




1341 


30 


0002 


1347 


SEARCH 


1347 


20 


1961 


1414 


SYMBOLIC 


1414 


16 


8001 


1671 


OP TABLE 


1671 


84 


1050 


1855 




1855 


15 


1608 


8002 


IS 


8002 


65 


9997 


1501 


SYM OP 


1501 


16 


1961 


1615 


LEGAL 


1615 


35 


0006 


1529 




1529 


44 


1013 


1384 


TEST FOR 


1384 


35 


0001 


1391 


PSEUDO OP 


1391 


44 


1295 


1346 


STORE NUM 


1346 


35 


0001 


1753 


650 OP 


1753 


20 


1983 


1236 


GET OPTIM 


1236 


30 


0004 


1397 


CONSTANTS 


1397 


15 


1650 


8002 




8002 


69 


9996 


1399 




1399 


24 


1452 


1196 


FORM 


1192 


16 


1345 


1449 


NUMERIC 


1449 


35 


0002 


1905 


OP 


1905 


16 


8002 


1963 


CODE 


1963 


30 


0001 


1869 




1869 


15 


8001 


1753 


ILLEGAL OP 


1013 


65 


1986 


1441 


SET 8 


1441 


15 


1194 


1499 


FOR BLANK 


1499 


20 


1986 


1289 


OP 


1289 


69 


1242 


1399 


PSEUDO 


1295 


35 


0003 


1803 


OP 


1803 


15 


1196 


1551 




1551 


15 


0992 


8002 


CONSTANTS 


1608 


65 


0000 


1501 




1700 


10 


0000 


0000 




1650 


69 


0800 


1399 




1345 


90 


9000 


0000 




1194 


00 


0000 


0008 




1242 


55 


0505 


0999 



STORE EXIT 


1213 


24 


1416 


1919 


STORE ADDR 


1919 


21 


1961 


1464 


IS C5 


1464 


30 


0008 


1333 


BLANK 


1333 


44 


1437 


1416 


SAVE C5 


1437 


21 


1962 


1665 



77 





RAU 


8002 






AUP 


90XXX 






BOV 


LOOP 


LOOP 


LOOP 


AUP 


HI 






BOV 




SYM 




SLT 


0002 






NZU 


LOOP 






RAL 


XXXX2 






SLO 


90XXX 






BMI 




SYM 




ALO 


2 9 XXX 






BMI 


SYM 






RAL 


11 XXX 






AUP 


XXXX1 


AEX 


AEX 


ALO 


EXITZ 






SLO 


8002 


8001 


SYM 


RAU 


XXXX1 






LDD 




SUB15 




ALO 


2 1 XXX 






STU 


HSYMB 


AEX 


HI 


10 


0000 


0000 


HSYMB 


01 
HED 


0000 


HSYMB 






SUB 5 TEST ABS 




HED 


5 




SUBR5 


STD 


EXITZ 






STL 


XXXX1 






SLT 


0004 






SLO 


8002 






TLU 


R0001 






ALO 


GET 


8002 


8002 


RAU 


9972 


X 


X 


SLT 


0006 






SRT 


0006 






AUP 


EXITZ 






ALO 


XXXX1 






SUP 


8003 


8001 


GET 


RAU 


0000 


X 


R0001 


00 


1999 


0000 


R0002 


00 


7999 


0003 


R0003 


00 


8003 


0001 


R0004 


00 


8004 


0003 


R0005 


00 


8007 


0001 


R0006 


00 


8999 


0003 


R0007 


00 


9059 


0002 


R0008 


99 
HED 


9999 


0003 






SUB 6 SYMBOL T 




HED 


6 




SUBR6 


STD 


EXITZ 






STU 


S 





ARE LOW 4 


1665 


60 


8002 


1523 


CHARACTERS 


1523 


10 


1178 


1383 


NUMERIC 


1383 


47 


1286 


1286 




1286 


10 


1339 


1393 




1393 


47 


1396 


0998 




1396 


35 


0002 


1853 




1853 


44 


1286 


1658 


LOW 4 NUM 


1658 


65 


1962 


1417 


IS C5 


1417 


16 


1178 


1433 


ALPHABETIC 


1433 


46 


1336 


0998 




1336 


15 


1189 


1443 




1443 


46 


0998 


1447 


REGIONAL 


1447 


65 


0992 


1497 




1497 


10 


1961 


1715 




1715 


15 


1416 


1721 




1721 


16 


8002 


8001 


HED SYMBOL 


0998 


60 


1961 


1765 




1765 


69 


1018 


1663 


STEP EXIT 


1018 


15 


1771 


1425 




1425 


21 


1230 


1715 




1339 


10 


0000 


0000 


ERASEABLE 


1230 


01 


0000 


1230 



STORE EXIT 


1750 


24 


1416 


1969 


STORE A 


1969 


20 


1961 


1514 




1514 


35 


0004 


1475 




1475 


16 


8002 


1483 


TLU 


1483 


84 


1200 


1656 


RANGE 


1656 


15 


1709 


8002 


TABLE 


8002 


60 


9972 


1177 




1177 


35 


0006 


1491 




1491 


30 


0006 


1706 




1706 


10 


1416 


1821 




1821 


15 


1961 


1815 




1815 


11 


8003 


8001 




1709 


60 


0000 


1177 


RANGE 


1200 


00 


1999 


0000 


TABLE 


1201 


00 


7999 


0003 




1202 


00 


8003 


0001 




1203 


00 


8004 


0003 




1204 


00 


8007 


0001 




1205 


00 


8999 


0003 




1206 


00 


9059 


0002 




1207 


99 


9999 


0003 



STORE EXIT 1275 24 1416 1320 
STORE SYMB 1320 21 1601 1654 



78 





LDO 


SWOF 






STD 


SW 






MPY 


SC 






RAL 


8002 






SLT 


0003 






MPY 


CF 






SRT 


0001 






SLT 


0004 






ALO 


L1P1 






STL 


L0P1 






SLO 


ID XXX 






STL 


LO 


SLI 


SLI 


STL 


LI 


8001 


8001 


RAL 


9990 


A 


A 


NZE 




UNO 




SLO 


S 






NZE 


SW 


DEF 


SW 


RAL 


LI 


OFF 


OFF 


SLO 


LMAX 






NZE 




MAX 




ALO 


LMP1 


SLI 


ON 


SLO 


LO 






NZE 




SWSYM 




ALO 


L0P1 


SLI 


MAX 


LOD 


SWON 






STD 


SW 






RAL 


LI 


SLI 


UNO 


RAL 


EXITZ 






ALO 


11 XXX 






STL 


EXITZ 






RAL 


LI 






SLO 


LI 






STL 


LSYMB 


ASU 


DEF 


RAL 


LI 






LDD 


ASU 


SUBR8 


ASU 


AUP 


S 


EXITZ 


SWSYM 


HLT 


0111 


SYMOF 


SYMOF 


LDD 


SYMON 






STD 


SWSYM 


SYMON 


SYMON 


RAL 


EXITZ 






ALO 


2 1 XXX 


8002 


SWOF 


RAL 


LI 


OFF 


SWON 


RAL 


LI 


ON 


SC 


10 


0100 


1001 


CF 


00 


0000 


0004 


LI 


RAL 


0000 


A 


L1P1 


RAL 


0001 


A 


LMAX 


RAL 


EOOOO 


A 


LMP1 


RAL 


E0001 


A 


S 


01 


0000 


S 


SW 


01 


0000 


SW 



SET SWITCH 


1654 


69 


1758 


1861 


OFF 


1861 


24 


1610 


1764 


SCRAMBLE 


1764 


19 


1517 


1238 


SYMBOL 


1238 


65 


8002 


1547 


GIVING 


1547 


35 


0003 


1806 


LO 


1806 


19 


1759 


1330 




1330 


30 


0001 


1587 


SET 


1587 


35 


0004 


1597 


TEST 


1597 


15 


1850 


1856 


WORD 


1856 


20 


1865 


1168 




1168 


16 


1020 


1525 


SAVE LO 


1525 


20 


1903 


1487 


INIT LI 


1487 


20 


1614 


8001 


IS CONT OF 


8001 


65 


9990 


1395 


LI ZERO 


1395 


45 


1098 


1549 


IS CONT OF 


1098 


16 


1601 


1756 


LI SYMB 


1756 


45 


1610 


1811 


IS LI 


1610 


65 


1614 


1270 


MAXIMUM 


1270 


16 


1573 


1227 




1227 


45 


1280 


1331 


STEP LI 


1280 


15 


1533 


1487 


IS LI EQUA 


1800 


16 


1903 


1708 


TO LO 


1708 


45 


1412 


1664 


STEP LI 


1412 


15 


1865 


1487 


SET 


1331 


69 


1434 


1537 


SWITCH ON 


1537 


24 


1610 


1714 


ZERO LI 


1714 


65 


1467 


1487 


UNDEFINED 


1549 


65 


1416 


1871 


STEP 


1871 


15 


0992 


1647 


EXIT 


1647 


20 


1416 


1370 




1370 


65 


1614 


1420 




1420 


16 


1467 


.1921 




1921 


20 


1575 


1278 


DEFINED 


1811 


65 


1614 


1470 


GET 


1470 


69 


1278 


1381 


EQUIVALENT 


1278 


10 


1601 


1416 


S TAB FULL 


1664 


01 


0111 


1218 


SET SW SYM 


1218 


69 


1971 


1224 


ON 


1224 


24 


1664 


1971 




1971 


65 


1416 


1572 




1572 


15 


1771 


8002 


CONSTANTS 


1758 


65 


1614 


1270 




1434 


65 


1614 


1800 




1517 


10 


0100 


1001 




1759 


00 


0000 


0004 




1467 


65 


0000 


1395 




1850 


65 


0001 


1395 




1573 


65 


0399 


1395 




1533 


65 


0400 


1395 


ERASEABLE 


1601 


01 


0000 


1601 




1610 


01 


0000 


1610 



79 



LO 


01 


0000 


LO 


LI 


01 


0000 


LI 


LSYMB 


01 
HED 


0000 


LSYMB 






SUB 7 STORE SY 




HED 


7 




SUBR7 


STD 


EXITZ 






LDD 


SS 






SDA 


XXXX2 


8001 


8001 


STU 


9988 


A 


A 


SUP 


8001 






STL 


XXXX1 






SRT 


0004 






DIV 


2 1 XXX 






SLT 


0004 






ALO 


CI 






LDD 


C2 






SDA 


SEL 






LDD 


C3 






SDA 


SER 






STL 


OBEE 






SLO 


8001 






ALO 


XXXX1 


OBEE 


OBEE 


LDD 


9986 


B 


B 


NZU 


SER 






SLT 


0004 


SEL 


SS 


STU 


9987 


A 


CI 


LDD 


E0001 


B 


C2 


SDA 


9985 


EXITZ 


C3 


SIA 


9984 


EXITZ 


OBEE 


01 


0000 


OBEE 


SEL 


01 


0000 


SEL 


SER 


01 
HED 


0000 


SER 






SUB 8 GIVEN SY 




HED 


8 




SUBR8 


STD 


EXIT 






LDD 


8003 






SDA 


LSYMB 






RAL 


8001 






DIV 


2DXXX 






SLT 


0004 






ALO 


El 


8002 


8002 


LDD 


9975 


TR 


TR 


NZU 




LH 




RAM 


8001 


LR 


LH 


RAM 


8001 






SRT 


0004 


LR 


LR 


LDD 


8003 






SIA 


EQUIV 






RAL 


LSYMB 


EXIT 



1903 


01 


0000 


1903 


1614 


01 


0000 


1614 


1575 


01 


0000 


1575 



STORE EXIT 


1279 


24 


1416 


1520 




1520 


69 


1623 


1226 


STORE 


1226 


22 


1962 


8001 


SYMBOL 


8001 


21 


9988 


1541 




1541 


11 


8001 


1599 


SAVE E 


1599 


20 


1961 
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